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NOUIA CUROPA 


Był to niewątpliwie rok Euro¬ 
py Przy czym, to co wydarzyło 
się w Anno Domini 1989 na na¬ 
szym kontynencie, ma znaczenie 
nie tylko dla nas — Polakow, Ro¬ 
sjan, Niemców, Czechow, Słowa¬ 
ków, Węgrów, Rumunów, Bułga¬ 
rów, Ukraińców, Litwinow — ale 
także dla całego świata. 31 grud¬ 
nia skończył się bowiem me tyl¬ 
ko rok 1989; tego dnia skończyła 
się również pewna epoka w hi¬ 
storii świata, epoka fascynująca i 
zarazem okrutna, która nie dała 
definitywnych rozstrzygnięć, co 
do tego, jaką drogą należy iśc w 
przyszłość — dała nam jednak 
pewność, którą drogą isć nie na¬ 
leży 

Wiele jest symboli tego roku . 
Montując za lat 50 kronikę fil¬ 
mową, opisującą wydarzenia 
sprzed półwiecza, ow nieznany 
nam reżyser z przeszłości będzie 
miał z czego wybierać: Wałęsa i 
Kiszczak witający się na kilka 
minut przed rozpoczęciem obrad 
„okrągłego stołu"Tazołgi radzie¬ 
ckie wracające przez most na 
Amu-darn po zakończeniu nie¬ 
sławnej, prawie 10-letniej inter¬ 
wencji w Afganistanie; młody 
człowiek w dżinsach i niebieskiej 
kurtce, siedzący okrakiem na 
szczycie muru berlińskiego i roz¬ 
bijający go młotkiem na kawałki, 
przy radosnych okrzykach ze 
strony zgromadzonych po stro¬ 
nach muru tłumów; Vaclav Ha- 
vel, przemawiający do miliono¬ 
wego tłumu zebranego w stolicy 
Czechosłowacji... Będą oczywiś¬ 
cie, oprocz tych radosnych, rów¬ 
nież sceny okrutne, te, które 
przekazywała na cały świat „Wo¬ 
lna Telewizja Rumuńska '... 

Ale być może oprocz tych hi¬ 
storycznych wydarzeń, których 
wspólny mianownik sprowadza 
się do desperackiego i konsek¬ 
wentnego likwidowania pozosta¬ 
łości stalinowskich w ZSRR i 
krajach Europy Wschodniej, ów 
nieznany nam dokumentalista z 
przyszłości znajdzie notkę z 13 
grudnia, w której agencja TASS 
informowała z Nowego Jorku, że 
jedna z głównych korporacji z 
branży informatycznej, „Control 
Data", wystąpiła do rządu USA 
o uzyskanie zgody na sprzedaż 
do Związku Radzieckiego niek¬ 
tórych swoich wyrobow. W tym 
konkretnym przypadku chodzi o 
sześć nowoczesnych kompute¬ 
rów „Cyber-962”, przystosowa¬ 


nych do pracy w systemach kon¬ 
tr olno-awaryjnych na obiektach 
energetyki jądrowej Jest kilka 
powodów ku temu, aby uważać 
ten niepozorny wydawałoby się 
fakt za jedno z wydarzeń, które z 
perspektywy będzie miało dla 
przyszłości znaczenie wcale me 
mniejsze, niż wybicie kilkunastu 
dziur w murze dzielącym Berlin 

Jedną z głównych, gospodar¬ 
czych przyczyn porażki krajów 
Europy Wschodniej, było opóź¬ 
nienie w rozwoju informatyki 
Można już nawet dosyć precyzyj¬ 
nie określić, kiedy ten błąd został 
popełniony — w pierwszej poło¬ 
wie lat sześćdziesiątych W 
Związku Radzieckim (przypom¬ 
nijmy, że było to za rządów 
Chruszczowa) uznano nawet wó¬ 
wczas cybernetykę za naukę „bu- 
rżuazyjną”, „wrogą" (!), a ludzi, 
którzy się mą zajmowali po pro¬ 
stu tępiono. Na rezultaty me 
trzeba było długo czekac — tech¬ 
nika radziecka, pozbawiona tych 
wszystkich korzyści jakie daje 
stosowanie układów scalonych, 
zaczęła z roku na rok odstaioać 
coraz bardziej od światowej Na 
uzyskanie tych samych efektów 
zaczęto tracie w ZSRR najpierw 
dwa potem trzy, cztery razy wię¬ 
cej materiałów i energii , niz w 
USA 

Jednocześnie przodujące kraje 
zachodnie postanowiły wykorzy¬ 
stać postęp naukowo-techniczny 
do walki ze Związkiem Radziec¬ 
kim i jego sojusznikami. Powoła¬ 
no COCOM, specjalny komitet 
za pośrednictwem ktorego 17 
krajów prowadziło skoordyno¬ 
waną politykę odgrodzenia 
ZSRR od tych technologu, które 
decydują o tempie rozwoju gos¬ 
podarczego. Oczywiście, uzasad¬ 
niano tę decyzję przede wszyst¬ 
kim względami obronnymi. Ale 
jego istotą pozostawała blokada 
gospodarcza. 

Sygnały świadczące o tym, że 
Zachód zmienia swoją politykę 
gospodarczą w stosunku do Eu¬ 
ropy Wschodniej — są w tej sytu- 
acji sygnałami najważniejszymi 
z ważnych. Otwiera nam to bo¬ 
wiem me tylko dostęp do najno¬ 
wocześniejszych komputerów, 
do tych technologu, które decy¬ 
dują o wydajności pracy. W isto¬ 
cie rzeczy, otwiera to nam bo¬ 
wiem dostęp do przyszłości 

Waldemar Siwiński 


ZA MIESIĄ C: 


• TOMS TURBO DRIVE 
i operacje dyskowe 
w CPM PLUS 

• ALI EN — wyprawa 
w Kosmos 

• U biologów — LISY 
I KRÓLIKI 

• Folia do Spectrum 
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• Muzyka komputerowa — 
nowy świat dźwięków 

• Spis treści Bajtka w 1989 r. 

• dużo programów, 
ciekawostki, stałe rubryki, 
listy 

• Złota 10-tka Bajtka 

• BYTE — 15-letni miliarder! 
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rozmowa 
z prof. dr 
hab. inż. 
Andrzejem 
Jakubowskim 
— dyrektorem 
Instytutu 
Technologii 
Elektronowej 

— Panie Profesorze, czy można 
w ogóle marzyc o uzyskaniu korzy¬ 
ści wiążącyc się z zastosowania¬ 
mi informatyki — bez rozwijania u 
siebie własnej bazy mikroelektroni- 
cznej? 

— Zdecydowanie NIE! Wprawdzie 
nawet poważni ludzie mówią często 
skoro koszty rozwijania mikroelektro¬ 
nik: są tak duże to nie rozwijajmy jej 

— Tylko kupujmy gotowe pod¬ 
zespoły! 

— Jednak kraje, które próbowały 
tak postępować, wyszły na tym jak 
najgorzej. Na przykład, Szwajcarzy, 
Ponieważ produkowali znakomite ze¬ 
garki mechaniczne, więc postanowili 
również robie zegarki elektroniczne 
kupując do nich podzespoły mikro- 
elektromczne za granicą Szybko się 
przekonali, ze przestali być konkuren- 
cyjni! Okazuje się że nie można bez¬ 
karnie zrezygnować z rozwijania tej 
bazy, która jest obecnie najważniej¬ 
sza, a jednocześnie me można kupić 
najnowocześniejszych jej wyrobow 
z bazy podzespołów specjalizowa 
riych czyli wykonywanych dla określo¬ 
nych, konkretnych potrzeb. Układy ta¬ 
kie stanowią obecnie juz ponad 20 
proc światowej produkcji mtkroelek- 
tronicznej 

— I wszyscy w Europie tę swoją 
mikroelektronikę robią? 

— Nie mam danych co do Albanii, 
ale wszystkie inne kraje mikroelektro¬ 
niką się zajmują Włącznie z Irlandią i 
Portugalię, które jakoś odruchowo lo¬ 
kujemy gdzieś na dole tabeli Gdy¬ 
byśmy chcieli wytwarzać w Polsce no 
woczesny sprzęt elektroniczny, a jed 
nocześnie nie produkować żadnych 
podzespołów mikroelektronicznych, 
to musielibyśmy zapłacie za eh import 
co najmniej 1 m!d dolarów rocznie 

— Mówimy cały czas o układach 
specjalizowanych, a co z tymi, któ¬ 
re siedzą w środku komputera ? 

— U nas modne były czasami takie 
hasła żebyśmy ścigali świat w mikro¬ 
procesorach, czy tez w pamięciach 
dynamicznych RAM, bo brzmi to do 
brze i jest efektowną wizytówką Wia¬ 
domo tez skądinąd, ze na świecie jest 
wielkie zapotrzebowanie na takie 
układy Zapomniano jednak, ze ich 
produkcja wymaga olbrzymich nakła 
dów. Na sw ecie stać na to tylko kilka 
koncernów, które w dodatku zaciekle 
ze sobą walczą Jest to konkurencja, 
w której startują tylko USA, Japonia i 
połączona Europa Zachodnia Połą¬ 
czona, gdyż przerasta to siły pojedyn¬ 
czych krajów 

Nas na to me stać Są to bowiem 
najbardziej zaawansowane technolo¬ 
gie — tzw submikrometrowe. Musie- 
I byśmy wybudować fabryki jakich 
nasz kraj jeszcze me widział i długo 
jeszcze me zobaczy (chodzi np. o su- 
perwymogi dotyczące czystości) 
Oczywiście, byłoby bardzo dobrze dla 
ogólnego rozwoju Polski, gdyby jakiś 
inwestor taką fabrykę chciał w Polsce 
postawie. Trudno przecenić, jakie 
miałoby to znaczenie dla podniesienia 
naszej kultury technicznej — są to 
przecież najbardziej zaawansowane 
technologie Ale, nie miejmy złudzeń, 
dostępu do nich mieć me będziemy — 
chocby dlatego, ze traktowane są one 
póki co jako towar strategiczny 

— Co więc nam pozostaje? 

— Jest cały obszar technologu 2 
3 mikrometrowych (chodzi o minimal¬ 




ną szerokość ścieżki), które są znako¬ 
mitym treningiem i przygotowaniem 
nteiektualnym do pójścia dalej A me 
jest to wcale technologia zła, bo moż¬ 
na w oparciu o mą produkować seryj¬ 
nie np układy pamięci 64 k 

— To, że ktoś produkuje motory, 
wcale nie znaczy, że mamy nie pro¬ 
dukować rowerow? 

Oczywiście, zwłaszcza ze do¬ 
bre rowery są obecnie na swiecie w 
cenie! 

— Co uzyskujemy dzięki skon¬ 
centrowaniu się na produkcji ukła¬ 
dów specjalizowanych? 

— Choćby to, ze dobry układ spec¬ 
jalizowany można sprzedać na świe¬ 
cie me za 2 dolary, tak jak pamięć, tyl¬ 
ko za 20 a nawet 100 dolarów, bo w 
układzie takim jest ogromny ładunek 
myśli konstruktora I w tym zakresie 
mamy eszcze szanse 

— Bo jest luka na swiecie? 

— Jest luka, ale jest rowmez ogro¬ 
mna konkurencja Układy te produko¬ 
wane są przecież w wielu zakładach, o 
których nawet me wiemy Ktoś musi 
jednak produkować UKłaay specjalizo¬ 
wane dla tych koncernów, które zaj¬ 
mują się produkcją samochodów czy 
tez budową sieci telekomunikacyj¬ 
nych* 

— Kupując więc na przykład we 
Francji centrale telefoniczne, płaci¬ 
my de facto również za fabrykę 
układów mikroelektronicznych, 
którą wybudowano we Francji,'a by 
wytwarzać niezbędne podzespoły 
mikroelektroniczne do tych cen¬ 
tral? 

— Oczywiście! 

— Chce więc Pan Profesor po¬ 
wiedzieć, że lepiej byłoby tę fabry¬ 
kę od razu zbudować u nas? 

To jest w gruncie rzeczy , być 
albo nie byc polskiej elektroniki. Ne 
można bez tego marzyć o produkcji 
aparatury kontrolno-pomiarowej Obec¬ 
nie, zamiast wielu poprzednio stoso¬ 


wanych układów, w takim urządzeniu 
znajduje się jeden układ scalony, me 
opisany, w Którym zaszyfrowana jest 
cała ta errmica I jak my sobie wyobra 
żamy konkurencję na rynku aparatury 
kontrolno-pomiarowej bez możliwości 
wyprodukowania takich „kości"? 

— Ido tego wystarczy linia 3-mi- 
krometrowa? 

— Kupienie linii 3 mikrometrowej 
jest warunkiem uchronienia polskiej 
mikroelektroniki przed zagładą Daje 
to bowiem szansę zachowania zespo¬ 
łów ludzkich i ich dorobku — a to z ko¬ 
lei warunkuje możliwość posunięcia 
się w przyszłości dalej. Przy czym me 
jest tak, ze my mc me mamy Mamy 
dużo elementów takiej linii Sporo 
trzeba jednak jeszcze dokupić 

— Wspomniał Pan Profesor o 
kadrach . Gdzie one są? 

— Jest jeszcze kadra w Instytucie 
Technologii Elektronowe Jest tez w 
Politechnice Warszawskiej Ale jest to 
już kadra nieco zmęczona niepewno¬ 
ścią co do swoich losow I mocno 
przetrzebiona Dlatego trzeba zrób ć 
wszystko, zęby przyciągnąć do tej fa¬ 
scynującej dziedziny najzdolniejszą 
młodzież Polskiej mikroelektronice 
potrzebna jest świeża krew! Musimy 
zrobić wszystko, zęby najlepsi absol¬ 
wenci wyższych uczelni podejmowali 
pracę w tego typu instytutach, żeby 
najzdolniejsi absolwenci szkół śred¬ 
nich wybierali te Kierunki studiów, któ¬ 
re są niezbędne dla rozwoju elektroni¬ 
ki, żeby uczniowie najstarszych klas 
podstawówek lez juz starali się zbiizyć 
na serio do fizyki, matematyki, infor¬ 
matyki elektroniki ze wszystkimi jej 
Specjalnościami, chemii. 

— Na ile, odbudowując polską 
mikroelektronikę, można liczyc na 
tych, którzy wyjechali i pracują za 
granicą? 

— Na tych, których ja znam, wy¬ 
chowanków i pracowników Zakładu 
Mikroelektroniki Politechniki Warsza¬ 
wskiej, można liczyć na pewno Pro¬ 


wadziłem juz takie rozmowy z moimi 
młodszymi kolegami, profesorami: 
Andrzejem Strojwąsem Wojciechem 
Małym i Jerzym Rozyłło, którzy pracu¬ 
ją w USA i odnieśli tam znaczące suk 
cesy Chętnie nam pomogą Juz zre¬ 
sztą pomagają — przysyłają literaturę 
tp Ich nazwiska są gwarancją dla 
międzynarodowego biznesu, ze warto 
będzie w Polsce zainwestować Ale, 
oczywiście, jeśli me będziemy mieli 
dobrej kadry, tutaj, w Polsce, to me 
dostaniemy żadnych zamówień ze 
świata Musimy więc zrobić wszystko, 
zęby zapewnić sobie ten dopływ 
świeżej krwi. 

— Ale coraz mniej osob stara 
się o przyjęcie na wydziały fizyki 
czy informatyki! 

— Trzeba więc im stworzyć per¬ 
spektywę pracy w tych dziedzinach 
Zęby me bali się tych kierunków stu¬ 
diów — i zęby wiedzieli, iz w przyszło¬ 
ści można na tym niezłe zarobić 

— Twórzmy tę perspektywę ra¬ 
zem! 

— Proszę bardzo 1 „Bajtek ma tak 
dobrą markę wsrod młodzieży, ze po 
łączenie naszych sił wydaje się wielce 
obiecujące — widzę zresztą jak moj 
syn skrzętnie zbiera „Bajtka", wertuje 
go i tłucze potem nocami na tym swo¬ 
im „Commodore Wasi Czytelnicy 
wiedzą ze bez mikroelektroniki prze¬ 
staniemy liczyc się w europejskiej ro¬ 
dzime narodów a to oznacza bezpo¬ 
wrotne utracenie szans na suweren¬ 
ność, tę suwerenność prawdziwą — 
gospodarczą 

— Nie tylko czytajmy z wypieka¬ 
mi na twarzy o kalifornijskiej Krze¬ 
mowej Dolinie, ale zacznie/my wre¬ 
szcie tworzyć tę dolinę również w 
Polsce!? 

— Należy ułatw ac młodzieży me 
tylko kontakt z komputerami, ale row 
mez pokazywać to, co jest przed i po 
p okażmy chocby młodym ludziom jak 
się wytwarza układy scalone, jakich 
urządzeń i spełnienia jakich warunków 
to wymaga, związanych chocby z czy¬ 
stością 

— A czy Pan Dyrektor mógłby 
zaprosić Ćzytelmków „Bajtka do 
swojego Instytutu, żeby mogli wre¬ 
szcie tę linię zobaczyć? 

— Oczywiście Chętnie pokażemy 
przy okazji, jak się wytwarza elementy 
optoelektroniki jak wygląda system 
sterowania produkcją 

— Trzymamy za słowo! 

— A dlaczego me mielibyśmy iść 
dalej? Proponuję, aby „Bajtek powo¬ 
łał Towarzystwo Upowszechniania 
Komputeryzacji wśród Młodzieży, któ¬ 
re pomoże najzdolniejszym młodym 
ludziom zapoznać się z najnowocześ¬ 
niejszą techniką w ogolę ze świa¬ 
tem... 

— Czy zechce się Pan Profesor 
w taką inicjatywę włączyc? 

— Proszę uważać, że juz się w mą 

włączyłem 1 Mam w tym zresztą swój 
własny interes: wierzę ze niektórzy z 
tych, którzy teraz czytają „Bajtka”, 
trafią po ukończeniu studiów do na¬ 
szego Instytutu i będą tą właśnie 
świeżą krwią, której polskiej mikroe¬ 
lektronice tak bardzo brakuje 1 

rozmawiał 

Waldemar Siwiński 
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mmm DRUKARKA firmy Toshiba 


„Nawet jeśli nigdy nie kupię sobie Rolls-Royce a, to 
chcę wiedzieć jak on wygląda, ile cylindrów ma jego sil¬ 
nik i jakie są inne parametry techniczne tego pojazdu. 
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K omputer przenośny ty¬ 
pu laptop jest urządze¬ 
niem wystarczająco cięż¬ 
kim aby zmechęcic osobę po¬ 
sługującą się mm do zabierania 
w podroż dodatkowej, normal¬ 
nej drukarki. Biorąc także pod 
uwagę konieczność zasilania 
sieciowego me jest to na pew¬ 
no rozwiązanie godne polece¬ 
nia. 

Co innego, jeśli kupimy dru¬ 
karkę Expresswriter 301 japoń¬ 
skiej firmy Toshiba Wazy ona 
tylko dwa kilo i umożliwia pracę 
z ładowalnymi bateriami aku¬ 
mulatorów 24-igłowa głowica 
pozwala na uzyskanie wydru¬ 
ków wysokiej jakości Drukarka 
jest wyposażona w interface 
równoległy typu Centronics, 
pięć rezydentnych zestawów 
czcionek i pracuje w trybie draft 
z szybkością 60 znaków na se¬ 
kundę, czyli 2—3 wolniej niż 
typowe urządzenia stacjonar¬ 
ne. 
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KIAIUlimjRn MVSZQ 

K orzystasz chętnie z myszy, ale jej długi przewód 
przeszkadza Ci w pracy. Poszukujesz mniej kło¬ 
potliwego i bardziej zwartego rozwiązania 
Za sumę $99.95 mozesz nabyć klawiaturę wyposażo¬ 
ną dodatkowo w urządzenie myszopodobne, tzn. rucho¬ 
mą kulę, której obroty wokoł dowolnej osi powodują 
zmianę położenia kursora. Klawiatura zawiera 104 klawi¬ 
sze, z wyodrębnionymi blokami funkcyjnym i numerycz¬ 
nym. Urządzenie przypominające mysz (ang. Trackbail) 
znajduje się w prawym dolnym rogu klawiatury. Roz¬ 
dzielczość zapewniana przez me wynosi 200 punktów 
na cal. Jeśli chodzi o jego oprogramowanie to jest ono 
zgodne ze standardem Microsoft Mouse. 



SZYBSZY 

KOPROCESOR 

DO AT 

Monopol firmy Intel, produkującej 
procesory różnego typu do kom¬ 
puterów serii IBM PC, został zła¬ 
many przez bardzo ciekawy pro¬ 
dukt firmy Integrated Information 
Technology Incorporation. Jest 
nim układ IIT-2C87, czyli zgodny 
sprzętowo i programowo z mode¬ 
lem 80287 koprocesor numerycz¬ 
ny do komputerów klasy AT 286. 

Kość została wykonana w tech¬ 
nologii CMOS i pozwala na dwu¬ 
krotny wzrost mocy obliczeniowej 
systemu. W odróżnieniu od ele¬ 
mentów firmy Intel, dostępne są 
wersje koprocesora pracujące z 
częstotliwością 20 MHz. Koszt ta¬ 
kiego układu $239 przy zakupie 
1000 sztuk. 

Dla użytkowników komputerów 
IMB PC AT narzekających na po¬ 
wolność swoich systemów w sto¬ 
sunku do wcześniej produkowa¬ 
nych XT, koprocesor firmy IłT jest 
rozwiązaniem z wyboru. 


Masz starzejące się XT, zna¬ 
jomi z nowszymi komputerami 
mówią Ci, że Twój sprzęt to juz 
historia Słyszysz słowa OS/2, 
Umx, wielodostęp i zaczynasz 
się zastanawiać co zrobić ze 
swoim starym i poczciwym pu¬ 
dłem 

Jest rada — nie musisz go 


sprzedawać — wystarczy jeśli 
nabędziesz naszą kartę SOTA 
386si, która zamieni Twój kom¬ 
puter w 19 razy szybszy 32-bi- 
towy sorzęt 

Tak mogłaby wyglądać rekla¬ 
ma kalifornijskiej firmy SOTA, 
zajmującej się produkcją rożne¬ 
go rodzaju akceleratorów do 


komputerów IBM PC. Omawia¬ 
na karta o symbolu SOTA 386si, 
zawiera 32-bitowy procesor 
80386SX pracujący z zegarem o 
częstotliwości 16 MHz. Dodanie 
koprocesora 80387SX zwiększa 
5-krotme numeryczne możliwo¬ 
ści zestawu, w stosunku do 
zwykłego AT, wyposażonego w 
koprocesor 80287. Oprócz 
szybkości i całkowitej zgodności 
z najnowszym oprogramowa¬ 
niem opisywana karta otwiera 
również drogę do programów 
pisanych specjalnie na 32-bito- 
we procesory serii 386. Dodat¬ 
kowym wyposażeniem jest karta 
pamięci 8MB RAM. Przy takim 
rozszerzeniu me mamy już żad¬ 
nych problemów przy pracy z 
systemem operacyjnym IBM 
OS/2, nakładkami typu Win- 
dows/386, czy po prostu z 
UNIX’em, który jest niezwykle 
pamięciożerny 

Nie namawiam nikogo do ku¬ 
powania XT z taką kartą, ale dla 
wielu aktualnych posiadaczy sa¬ 
mego komputera IBM PC/XT, 
karta taka może stanowić cieka¬ 
wą alternatywę rozwojową 





DAVID 


Ten młody człowiek na zdjęciu obok to David Whitta- 
ker, osoba znana każdemu posiadaczowi chipa AY dc 
Spectrum David jest autorem muzyki do gier Piatoon 
Tetris, License to Kill i wielu innych. Ostatnio firma Mi¬ 
les Gordon Technology podpisała z Davidem kontrak 
dotyczący produkcji oprawy dźwiękowej do progra 
mow na nowy komputer Sam Coupe, jak również pro 
dukcji programów muzycznych Przypominamy, ze 
Sam wyposażony jest w generator dźwięków SAA 
1099 o sześciu kanałach stereo Wszyscy miłosmcY 
muzyki komputerowej patrzą na Davida, który z pew¬ 
nością wykorzysta ten muzyczny potencjał rzucając 
ich na kolana 

(Gen) 


PROCESORY SERII 88000 
STANDARTEM DLA 
ELEKTRONIKI WOJSKOWEJ 

Francuska firma Thomson-CS 
jeden z największych producentów 
wyposażenia elektronicznego dla ar¬ 
mii, zapowiedziała standaryzację 
swojej produkcji w oparciu o najno¬ 
wszą serię procesorów Motorola 
88000. Thomson uzyskał zgodę na 
produkcję podstawowych układów 
88100 i 88200 w wersji militarnej 

Z kolei amerykańska firma Advan- 
ced Computers doniosła o wyprodu¬ 
kowaniu komputera zawierającego 
ponad 500 procesorów serii 88000 


■ 
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PŁASKI CKRAN DO PC 


J eśli znudziło Cię wielkie i ciężkie pudło monitora, przed którym 
pracujesz narzekasz na zmęczenie wzroku, boisz się promie- 
mowama rentegenowskiego, to pomysł o zakupie nowego, elek¬ 
troluminescencyjnego monitora firmy FINLUX 
Ważny on mniej mz 1 5 kg, pobiera 25 W i ma rozmiary 250*200*70 
(mm), czyli jest lekki, płaski i oszczędny Realizuje standart graficzny 
EGA, zapewniając rozdzielczość 640*350 w trzech odcieniach szaroś¬ 
ci. 



T ajwańska firma Aquanus Sys¬ 
tems wypuściła ostatnio na ry¬ 
nek przenośny komputer klasy 
AT wyposażony w wyświetlacz i karlę 
standartu VGA Oprócz charakterysty¬ 
cznej dla tego trybu rozdzielczości 
640*480 (w 16 odcieniach szarości) 
zachowywano pełną zgodność ze stan- 
dartami CGA, Hercules i EGA Zasto¬ 
sowany wyświetlacz typu LCD (ang. Li- 
quid Crystall Display) jest odłącza!ny od 
komputera —- przy pracy stacjonarnej 
możemy korzystać z pełnowymiarowe¬ 
go monitora kolorowego. 

Model Auarnus ASI-168 wyposażony 
jest w procesor 80286-pracujący z czę 
stntliwoscią 16 Mhz Dostępna pamięć 
F \M wynosi 1 MB i może być zwięk 


szona 5-krotnie Oprócz stacji 3.5 cala 
o pojemności 1 44 MB zastosowano 

dysk twardy 20 MB o czasie dostępu 
27 ms Jeden z portów rozszerzających 
emuluje rozszerzenie dla komputerów 

"oshiba T3100 Standartowym wyposa¬ 
żeniem są dwa złącza RS 232 C i dwu¬ 
kierunkowy interface typu Centronisc, 
umożliwiający także podłączenie dru¬ 
giego napędu dyskowego Dodatkowe 
opcje to koprocesor numeryczny 
80287, płyta 4MB RAM dyski twarde 
40 100 i 200 MB oraz bateria akumula 
torow niklowo-kadmowych. 

Całość wazy 5 kg i kosztuje w wersji 

podstawowej $4500 


MicroMaga?yn przygotował Jonasz Mayer 
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MUMPUKR 


Miesiąc temu starałem się Wam wytłuma¬ 
czyć co to jest przetwarzanie równoległe. 
Żeby udowodnić, ze na teorii sprawa się nie 
kończy, dziś przedstawię Wam istniejący 
komputer (a właściwie multiputer), realizują 
cy w praktyce to o czym pisałem 

Cegłą, 

z której został zbudowany MultiPuter firmy 
MicroWay, o którym będzie mowa, jest tran- 
sputer T800 Jest to 32-bitowy transputer 
przystosowany do pracy z zegarem 20 
MHz, oparty na architekturze RISC (czyli 
dysponujący zestawem niewielu, za to bar 
dzo szybkich instrukcji). Tym, co rożni tran¬ 
sputer od zwykłego mikroprocesora są 
szybkie łącza, w jakie jest wyposażony 

800 ma cztery kanały szeregowe, pozwą 
łające na przesyłanie informacji z szybkoś¬ 
cią 20 Mbit/s. Pozwala to łączyć transputery 
w łańcuchy (każdy transputer jest połączony 
z dwoma innymi) lub dwuwymiarowe sieci 
(możliwe są i inne kombinacje) 

Ściana, 

czyi, prefabrykat z cegieł, to płyta zawierają 
ca kilka transputerow — 1 (MonoPuter), 2 
(BiPuter). 4 (ÓuadPuter), 6 (HexPuter) lub 9 
(Fast 9 *Speciak), każdy z kilkoma układa¬ 
mi pozwalającymi na zarządzanie własną 
pamięcią RAM (do 16 Mb) Nie wszystkie 
transputery znajdujące się na płycre muszą 
być wyKorzystane, chociaż biorąc pod uwa¬ 
gę ich ceny (od 2000 $ w górę) byłoby to 
marnotrawstwem. 

Budynek, 

czyli cały MultiPuter, składa się z dużej (nie¬ 
typowej jak chodzi o rozmiary) obudowy od 
komputeia AT 386 zawierającej solidny za¬ 
silacz (około 1 kW), komputei AT z proce¬ 
sorem 80386, kartę grafiki EGA, twardy 
dysk oraz jedenaście wolnych szyn 16-bito- 
wych na karty rozszerzające. W te szyny 
wkłada się „ściany” — tyle na ile nas stać, 
następnie fachowiec łączy transputery mię¬ 
dzy sobą kabelkami (co wcale me jest takie 
proste) i cała konstrukcja jest gotowa 

Elewacja. 

Dla me wtajemniczonego użytkownika 
MultiPuter niczym się me różni od zwykłego 
komputera z systemem MS DOS Transpu¬ 
tery — o ile nas nie interesują — możemy 
zignorować, i korzystać z tego komputera 
tak samo jak z każdego innego. Popełnimy 
wtedy bardzo duży błąd. MultiPuter me jest 
komputerem AT do którego dołączono kilka 
transputerow. Jest dokładnie odwrotnie — 
to z czym mamy do czynienia to komputer 
zbudowany z transputerow w którym AT 
pełni rolę portiera. 

Wchodzimy do środka. 

Korzystanie z tego cudu techniki jest tro¬ 
chę dziwne, gdyż trzeba to robić za pośred¬ 
nictwem procesora 80386, a me bezpośred¬ 
nio Związane jest to z brakiem (narazie) sy¬ 
stemu operacyjnego korzystającego z T800 
jako procesora. Brak jest rowmez innego 
typu oprogramowania, toteż użytkownicy są 
zdam na programy pisane samodzielnie Jak 
je uruchomić? Nie jest to zbyt skomplikowa¬ 
ne, aczkolwiek wymaga opanowania które 
gos z języków dostosowanego do pisania 
programów przeznaczonych do przetwarza¬ 
nia równoległego Mozę to być na przykład 
aral el C Korzystając z oprogramowania 
działającego pod kontrolą MS-DOS-u przy¬ 
gotowujemy treść programu, kompilujemy 


go i wykonujemy wszystkie inne operacje 
potrzebne do przygotowania gotowego 
kodu wynikowego przeznaczonego do pra¬ 
cy w MultiPuterze Następnie przy pomocy 
krótkiego programu o nazwie RUN ładujemy 
gotowy program do sieci transputerow w 
której zostanie wykonany — i czekamy na 
wyniki. 

Szybkość 

zalezy od ilości transputerow którymi dys¬ 
ponujemy Według danych firmy MicroWay 
jej Model 190 MultiPuter z 19 transputerami 
daje 180 MIPS, czyli milionów instrukcji na 
sekundę (Millions Instructions Per Second) 
80386, skądinąd bardzo szybki procesor, 
osiąga w najlepszym wypadku 4 MIPS Mo 
zl we jest skonstruowanie z istniejących już 
elementów systemu z 1000 MIPS — szyb 
szego od niejednego Cray-a Oczywiście są 
to dane teoretyczne — w praktyce osiągmę 
cie takiej szybkości jest nierealne. 

Wąskie gardło. 

Transputery między sobą komunikują się 
błyskawicznie, ale ich iącza me bardzo na¬ 
dają się do bezpośredniego połączenia z 
otoczeniem Zęby ominąć ten problem, za¬ 
projektowano i wykonano specjalny inter¬ 
fejs, łączący siec transputerow z resztą 
świata Interfejs korzysta z wolnego, 8-bito- 
wego łącza równoległego, pracu ąceao z 
szybkością 20 kB/s. Konstruktorzy wyszli 
bowiem z założenia, ze większość użytkow¬ 
ników potrzebujących superszybkiego kom¬ 
putera ma danych niewiele, za to musi na 
nich wykonać dużo operacji Dla tych którzy 
danych mają dużo, jest przygotowywany 
transputerowy kontroler twardego dysku, 
ale zanim będzie on gotowy trzeba relatyw¬ 
nie długo czekac na przekazanie danych do 
programu działającego w MultiPuterze i na 
przekazanie wyników 

Podobne kłopoty dotyczą komunikacji z 
kartą EGA, ale ta sprawa doczekała s.ę juz 
swojego rozwiązania Istnieje bowiem spec¬ 
jalna karta o nazwie VideoPuter w której 
transputer będący częścią sieci ma równo¬ 
cześnie dostęp do pamięci obrazu. Dzięki 
temu me musimy w trakcie tworzenia grafiki 
tracie czasu potrzebnego na skomunikowa¬ 
nie się sieci z systemem za pośrednictwem 
powolnego łącza. 

Dla kogo? 

Cena MultiPutera (w najtańszej czyli 
najskromniejszej wersji) wynosi 29000 £ Z 
drugiej strony dla wielu użytkowników szyb 
kość kilkuset MIPS jest me do pogardzenia, 
takimi możliwościami nie zawsze dysponują 
szybkie komputery typu Workstation Jak 
zwykle użytkownicy stają przed dylematem 

— kupić komputer szybszy, czy tańszy. W 
Polsce jak narazie takiego dylematu me 
mamy — dla wielu potencjalnych użytkow¬ 
ników (me tylko prywatnych), 700 dolarow 
na zakup komputera klasy XT jest kwotą ab 
solutme nieosiągalną, co dopiero mówić o 
dziesiątkach tysięcy na MultiPuter. Jedyne 
co możemy robić, żeby nie zostać całkiem 
w tyle, to czytać o tym czego używają inni 

— i marzyć. 

Marcin Borkowski 

Powyższy tekst powstał na podstawie 
materiałów nadesłanych nam przez euro¬ 
pejski oddział firmy MicroWay, za co serde¬ 
cznie dziękujemy. 
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KLAN ATARI 


BIBLIOTEKA 



PROCEDURY 

WEJŚCIA 

Teraz zajmiemy się procedurami, 
których działanie jest odwrotne do 
działania Print i Put Śluzę one do 
wprowadzania informacji i maję zbliżo¬ 
ny format oraz podobne warianty Pro¬ 
cedurami wejścia w Action! sę Input 
i Get 

W zależności od rodzaju odczyty¬ 
wanych danych rozróżniamy dwa ro¬ 
dzaje procedur Input liczbowe i tek¬ 
stowe. Procedura GetD jest natomiast 

tylko jedna 

Odczyt liczb 

Wymienione poniżej szesć funkcji 
pozwala na odczytanie liczb dowolne¬ 
go typu z dowolnego kanału Działanie 
ich jest bardzo podobne i można je 
wszystkie opisać razem 
formaty BYTE FUNC inputB() 

BYTE FUNC lnputBD(BY- 
TE kanał) 

CARD FUNC lnputC() 
CARD FUNC lnputCD(BY- 
TE kanał) 

INT FUNC lnputl() 

INT FUNC lnputlD(BYTE 
kanał) 

parametry kanał jest poprawnym nu¬ 
merem IOCB (0—7) 
Działanie tych funkcji jest następu- 
jęce: 

InputB wprowadza z ustalonego 
kanału IOCB liczbę BYTE, 

InputBD wprowadza ze wskazanego 
kanału IOCB liczbę BYTE 
InputC wprowadza z ustalonego 
kanału IOCB liczbę CARD 
InputCD wprowadza ze wskazanego 
kanału IOCB liczbę CARD 
Inputl wprowadza z ustalonego ka¬ 
nału IOCB liczbę INT 
InputlD wprowadza ze wskazanego 
kanału IOCB liczbę INT 

Odczyt ciągów 

Wprowadzanie cięgów jest wykony¬ 
wane przez procedury o nazwie „In- 
putS” W bibliotece Action! sę trzy 
takie procedury i pozwalaję one na od 
czytanie cięgu znaków z dowolnego 
kanału i/lub określenie maksymalnej 
długości wprowadzanego cięgu 
formaty PROC lnputS(<ciąg>) 

PROC lnputSD(BYTE ka¬ 
nał, <ciąg>) 

PROC lnputMD(BYTE ka¬ 
nał, <ciąg>,BYTE max) 

parametry* <ciąg> jest nazwę tablicy 

BYTE ARRAY 
kanał jest poprawnym nu¬ 
merem IOCB (0—7) 
max jest największą do- 
puszczalnę liczbę 
znaków w odczyty¬ 
wanym cięgu Jeśli 
cięg ma więcej 
znaków, to zostaje 
obcięty do podane; 
długości. 

Działanie tych procedur jest nastę¬ 
pujące 

InputS wprowadza z ustalonego 
kanału IOCB csęg znaków o 
długości me przekraczajęcej 
255 

InputSD wprowadza ze wskazanego 
kanału IOCB c;ęg znaków o 
długość; me przekraczajęcej 
225 

InputMD wprowadza ze wskazanego 
kanału IOCB cięg znaków o 
długości me przekraczaję¬ 
cej ”max” 

Odczyt znaku 

Do odczytu pojedynczego znaku ze 
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wskazanego kanału służy funkcja 

GetD. 

format CHAR FUNC GetD(BYTE 
kanał) 

parametry kanał jest poprawnym 

numerem SOCB (0—7) 

Funkcja ta jest używana do pobrania 
jednego znaku z IOCB określonego 
przez kanał” Znak jest zwracany 
przez funkcję jako liczba odpow ada- 
jęca wartości jego kodu A ASCII 

OBSŁUGA 

PUKÓW 

Do procedur wejscia/wyjscia zali¬ 
czają się jeszcze procedury słuzęce 
do bezpośredniej obsługi plików Sę 
one przeznaczone przede wszystkim 
do komunikacji z urzędzemami zew¬ 
nętrznymi komputera* klawiaturę ma¬ 
gnetofonem stację dysków, drukarkę 
itd 

Procedura Open 

Procedura Open przygotowuje blok 
IOCB (otwiera kanał) do komunikacji z 
urządzeniem zewnętrznym 
format PROC Open(BYTE ka¬ 
nał, <plik>,BYTE tryb,pom2) 
parametry: kanał jest poprawnym nu¬ 
merem !OCB (0—7) 
<plik> jest stałę tekstową 
(lub identyfikato¬ 
rem tablicy zawie¬ 
rającej tę stałą) 
określającą urzę 
dzeme (K , C , D:, 
P: itd.), dla ktorego 
otwierany jest ka¬ 
nał IOCB Stacja 
dysków (D ) wy¬ 
maga ponadto naz¬ 
wy piku 

tryb jest liczbę określają 
cę tryb dostępu do 
otwieranego kanału: 
4 — tylko odczyt 
6 — odczyt kata¬ 
logu dyskietki 

8 — tylko zapis 

9 — zapis na koń¬ 
cu phku 

12 — zapis i od • 

czyt (wymiana) 
pom2 jest wartością po¬ 
mocniczą zależną 
od rodzaju urzą¬ 
dzenia (zwykle ze- 
ro). 

Procedura ta otwiera wskazany ka ¬ 
nał IOCB do komunikacji z urządze¬ 
niem określonym przez <plik> Przy 
otwieraniu konieczne jest określenie 
trybu dostępu do urządzenia podczas 
komunikacji Zmiana tego trybu jest 
możliwa tylko przez zamkn ęcse i po¬ 
nowne otwarcie kanału 

UWAGA Nie można otwierać kana¬ 
łu 7, ponieważ jest on wykorzystywa¬ 
ny przez system Action! jako kanał 
wejściowy z klawiatury Można nato¬ 
miast używać kanału 7 do wprowadza 
ma znaków z klawiatury (K ) bez jego 
otwierania Action! automatycznie 
otwiera kanał 7 przy uruchamianiu sy¬ 
stemu. 

Procedura Close 

Procedura Close zamyka kanał 
komunikacji z urządzeniem zewnę 
trznym 

format PROC Close(BYTE kanał) 

parametry: kanał jest poprawnym 
numerem IOCB (0—7) 

Zamknięcie wskazanego kanału 
kończy komunikację z urządzeniem 
poprzez ten kanał Na końcu progra 
mu należy zawsze zamknąć wszystkie 
kanały otwarte przez program gdyż 
Action! — w przeciwieństwie do Ba- 


sica — sam me zamyka kanałów 
IOCB 

Procedura XIO 

format PROC XIO(BYTE kanał,0, 
rozkaz, pomi ,pom2,<plik>) 
parametry kanał jest poprawnym nu¬ 
merem IOCB (0—7) 
rozk jest kodem rozkazu 
wykonywanej ope¬ 
racji (rejestr ICCMD 
w IOCB). 

pomi jest pierwszym 
bajtem pomocni¬ 
czym IOCB (re¬ 
jestr ICAX1). 

pom2 jest drugim ba tem 
pomocniczym 
IOCB (rejestr 
!CAX1) 

<p!ik> jest stałę tekstową 
określającą urzą¬ 
dzenie (dla stacji 
dysków — D — 
kon.eczna jest tak¬ 
że nazwa pliku). 

Procedura ta jest wywołaniem sy¬ 
stemowej procedury l/O i służy głów ¬ 
nie do wykonywania specjalnych ope¬ 
racji dyskowych. Jej parametry odpo¬ 
wiadają dokładnie parametrom stoso¬ 
wanym w instrukcji XIO występującej 
w Atari Basic. Dla niektórych poda¬ 
nych tam operacji Action! posiada 
specjalne, własne procedury. XIO jest 
więc w Action! używane znacznie 
rzadziej ntz w Basicu. 

UWAGA zero podane jako drugi 
parametr jest niezbędne dla prawidło¬ 
wego działania procedury. 

Procedura Notę 

Zwraca aktualne wartości wskaźnika 

odczytu/zapisu w phku dyskowym 

format PROC Note(BYTE kanał, 
CARD POINTER sektor, 
BYTE POINTER bajt) 

parametry: kanał jest poprawnym nu¬ 
merem IOCB (0—7 1 
sektor jest wskazn kierr 
zmiennej, która 
przechowuje nu¬ 
mer sektora 

bajt jest wskaźnikiem 
zmiennej, która prze¬ 
chowuje numer baj- 
tu w sektorze 

Procedura umieszcza w określo¬ 
nych przez wskaźniki zmiennych ad¬ 
res (numer sektora i bajtu w sektorze) 
bajtu, który będzie zapisywany lub od¬ 
czytywany jako następny (czyli zwraca 
wartość wskaźnika pliku dyskowego). 

Procedura Point 

Ustala wartość wskaźnika odczytu/ 
/zapisu w pliku dyskowym 
format PROC Point(BYTE kanał, 
CARD sektor, BYTE bajt) 
parametry kanał jest poprawnym nu¬ 
merem IOCB (0—7) 
sektor jest poprawnym 
numerem sektora 
(1 /—720 lub 1 — 
1040). 

bajt jest poprawnym nu 
merem bajtu w sek 

torze. 

Ta procedura pozwala na ustawie 
nie wskaźnika pliku dyskowego w do¬ 
wolnym miejscu tego pliku, przez co 
umożliwia korzystanie z plików o do¬ 
stępie swobodnym Dla poprawnego 
działania procedury Point plik dysko 
wy musi być otwarty w trybie 12 (wy¬ 
miana). 

Wojciech Zientara 



Gra zręcznościowo-logi- 
czna TETRIS, napisana przez 
W. Gierasimowa i A. Padzit- 
nowa z Uniwersytetu Mos¬ 
kiewskiego, stała się praw¬ 
dziwym przebojem na całym 
swiecie, oczywiście również 
w Polsce. 

Została pierwotnie stworzona na komputery 
standardu PC wykorzystując jedynie tryb zna¬ 
kowy Dystrybutor programu na rynku zacho¬ 
dnim, firma Spectrum Holobyte, opracowała 
program dodając grafikę Dzięki doskonałemu 
pomysłowi i dużej wciągalności", TETRIS 
może stanowić wzór dla twórców gier kompu- 
'erowych którzy jakoś nie mogą wyjść ze 
schematu „strzelaj do wszystkiego, co się ru 
sza bądź , wez zielony kamień i uderz gobh- 
na mieczem 

Oczywiście powstało wiele wersji TETRIS 
na różne maszyny, od Spectrum po Amigę i 
Maclntosha Ostatnio pojawiła się wersja pod 
nazwą THE WARSAW' TETRIS przeznaczona 
na Atari XL/XE, a napisana przeze mnie wraz 
z Arkiem Łukszo i ozdobiona, znakomitą melo¬ 
dyjką autorstwa Kuby Husaka. Wykorzystuje 
ona grafikę PMG, okna graficzne, przerwania. 
Display List, zawiera listę najlepszych wyni¬ 
ków itd Dla tych jednak, których zadowoli we 
rsja ubozsza bez tzw „bajerów” przedsta 
wiam pomzszy program napisany w języku 
Action! (podobnie jak pierwowzór). 

Gra się bardzo prosto pchnięcie joysticka 
v lewo lub w prawo powoduje przesunięcie 
klocka pchnięcie v coł — zrzucenie klocka 
Obrót klocka następuje po naciśnięciu FiRE. 

A teraz nieco objaśnień Zasadniczą częś¬ 
cią procedury Tetrisf) są trzy pętle Pierwsza z 
nich, najbardziej zagnieżdżona, czterokrotnie 
bada stan joysticka lub przycisku FIRE Wy 
wołuje odpowiednie funkcje by sprawdzić 
czy możliwe jest przesunięcie lub obrót oraz 
przemieszcza dany Klocek jeżeli wynik testu 
jest pozytywny. Pętla ta wykonuje się tylko 
wtedy, gdy zmienna „drop’ me |est ustawio¬ 
na — zmienna ta przyjmuje wartość 1 tylko 
wtedy, gdy wykryto pchnięcie soysticka w doł 
Druga pęta, sterowana zmienną , spadł wy¬ 
konuje się dopoty, dopóki klocek me spadnie 
lub nie zostanie ustawiony. W tym momencie 
przy pomocy funkcji suma() program spraw¬ 
dza, czy jakaś linia me jest wypełniona i „ob 
suwa’ zawartość studni nad tą limą dzięki 
procedurze obsun() Obsuwane są w ten spo¬ 
sób wszystkie wypełnione linie, co 10 linii 
wzrasta poziom trudności (zmienna lev), cze¬ 
mu towarzyszą proste efekty graficzne i 
dźwiękowe Wreszcie trzecia główna pętla, 
sterowana jest zmienną „zafetris” która 
orzyjmuje wartość 1, gdy ulegniemy tzw „za- 
‘.etrisiemu”, czyli wtedy, gdy klocek jest usta 
wiony w studni natychmiast po pojawieniu się 
na ekranie, co oznacza po prostu koniec gry 

Procedury studn a() pause(), bzykol() i ko 
niecf) nie wymagają wyjaśnień. Tablice „wx" i 
„wy’ są wybierane w procedurze numkl() W 
TETRIS le mamy 7 rodzajów klocków, każdy 
co najwyżej w 4 położeniach, co daje w sumie 
19 różnych klockow Do ich wyświetlania słu 
zy procedura wstaw() Warto zwrócić uwagę 
na sposob przypisania tablic w procedurze 
numkl() — odbywa się to przy pomocy wska¬ 
źników. Jest to metoda bezpieczna i skutecz¬ 
na gdyż Action! traktuje nazwy tablic jako ad- 
esy Parametry pi, p2, p3 i p4 określają 
przestrzeń życiową” danego klocka potrze¬ 
bną do jego obrotu Podobnie virtual() służy 
do sprawdzenia, czy klocek można przesunąć 
w dół lub w bok (wartości umożliwiające prze¬ 
sunięcie zawarte są w zmiennych .shift i 
down odpowiednio wybieranych przez 
procedurę params(). 

Jeżeli ktoś woli grać przy pomocy klawiatu 
ry (przyzwyczajenie z IBM a ..), program mo¬ 
żna łatwo przerobić. Oto moja sugestia: de¬ 
klarujemy zmienną globalną 

BYTF KBCODES-S2FC 

KBCODES jest to reiestr-cień zawierający 
kod ostatnio wciśniętego klawisza 'wartość 
255 oznacza, ze żaden me został wciśnięty 
Rejestr zachowuje wartość do chwili naciśnię¬ 
cia następnego klawisza, toteż po kazdorazo 
wym odczycie będziemy tam wpisywać $FF 
Można to zrobić w procedurze pause() przed 
zasadniczą pętlą zliczającą piszemy KBCO» 
DES=$FF 

W procedurze Tetris() piszemy joy=K- 
BCODES zamiast joy=stick(0) rzy testo¬ 
waniu wartości joy zamiast 11 piszemy 31 
(ruch w lewo klawisz ”1 ), zamiast 7—26 
(ruch w prawo- klawisz 3”), zamiast 13—33 
(zrzucenie- spacja) wreszcie zamiast ELSE 
IF strig{0 THEN... piszemy ELSEIF joy=30 
THEN... O znacza to obrot klocka przez naciś¬ 
niecie 2 Możemy grac zatem czterema 
palcami. 

Jeżeli efeKt działania programu Czytelnika 
me satysfakcjonuje może on oczywiście do 
konać stosownych zmian, ale... osobiście jed 
nak polecam THE WARSAW TETRIS 

Tomasz Konatkowski 
















Mini Tetris 
Tomasz konatkowski 


; (C) "Baj tek” 1989 

MODULE 

BYTE x,y,shift,down,nr,d1ug,rot, 
CRS1NH = $2F0,ATRACT = $4D 
BYTE ARRAY 

wx 1 = [0 0 1 2],wy1 = [ 0 1 i 13, 
wx2= C 0 1 2 0 3,wy2=[0 0 0 13, 
w x 3-[0 1 0 13,wy3= C 0 0 1 13, 

wx4=[1 0 1 2 3,wy4 = C O 1 1 13, 
wx5 = C 0 1 2 13,wy5 = C 0 0 O 13, 
wx6-C 2 0 1 2 3,wy6“CO 1 1 13, 
wx7=[0 1 2 2 3,wy7 =10 0 0 1 3, 
wx8=t1 2 0 13,wy8 =[0 0 1 13, 

wx9-C 0 1 1 2 3,wy9-C 0 0 1 13, 
wxi0=[0 1 2 3 3,wy 10= C 0 0 0 03, 

wx11 = C 0 0 1 0 3.wy 11 = t 0 1 1 23, 

wx12=[1 0 1 13,wy12= 10 1 1 23, 
wx13= 10 1 0 0 3,wy13= t 0 0 1 23, 
wx14= C 0 1 1 13,wy14= C 0 0 1 23, 
wxl5=C0 0 0 13,wyi5=CO 1 2 23, 

wx16= Ci 1 0 13,wy16= CO 1 2 23 , 

wx17=[0 0 1 13,wy17=10 1 1 23, 

wx18= t1 0 1 O 3,wy18= C 0 1 1 23, 

wx19= C O 0 0 0 3,wy19= C 0 1 2 33 

1 NT pl,p2,p3,p4 
BYTE ARRAY wx,wy 


PROC s tudni a() 

Graphics(3+16) color=3 
Plot(15,0) DrawTo(15,23) 

DrawTo(26,23) DrawTo(26,0) 
RETURN 


PROC pause(CARD x) 
CARD i 

FOR i=0 TO x DO OD 
RETURN 


PROC numk1(BYTE jaki) 

CARD PO INTER zux,zuy 

IF jaki=0 THEN dług=l 

zux r @wx3 zuy=@wy3 nr=3 


ELSEIF d1ug=1 THEN 

pl=-1 p2=0 p3=2 p4-2 
ELSEIF dlug=2 THEN 

pl=-l p2=0 p3=2 p4=2 
ELSE p1 =0 p2=-2 p3 = 3 p4 = l 
FI 

RETURN 


PROC wstawCBYTE x,y,koI) 
BYTE i 

FOR i=0 TO 3 

DO 

co 1or = ko 1 

Plot(15+x+wx(i),y+wy(i)) 
OD 

RETURN 


BYTE FUNC otocz(INT xl,yl,x2,y2) 
BYTE i,j,s 

s = 0 

FOR i=x+15+xl TO x+15+x2 
DO 

FOR j =y+ y1 TO y + y2 

DO 

s = = +Locate(i, j) 

OD 

OD 

RETURN(s) 


BYTE FUNC virtua1() 

BYTE i,s,a,b 

s =0 

FOR i=0 TO 3 

DO 

a=x+15+wx(i) b=y+wy(i) 
s==+Locate(a,b) 

OD 

RETURN(s) 


PROC params(BYTE jaki) 

IF jaki>10 THEN shif t = 2 down = 4 
ELSE shift=4 down=2 
FI 

IF jaki=3 THEN down = 4 
ELSEIF jak i = 10 THEN shift = 6 down = 0 
ELSEIF jaki=19 THEN shift=0 down=6 
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PutE() 

PrintF(”na poziomie 96d ! ! 1 ", lev) 
pause(10000) 

CRSINH=0 
RETURN 


PROC Tetris() 

CARD time,opoz,pts,temp 
BYTE jaki,i,j,joy,koliz,drop,spadł, 
sx,sy,rzad,zatetris,lin,Iev 

time=7000 temp=time 
zatetris=0 pts=0 lin=0 lev=0 
s tudni a() 

P 1 o t (3, O) 

DO 

rot=0 drop=0 spadl=0 
time=temp opoz=2500 
pause(time+opoz) 
jak i-Rand(7) 
numkl(jaki) params(nr) 
x=5 y=0 

IF nr = 10 THEN y = 2 FI 
sx=x sy=y 

wstaw(x,y,2) p t s = = + 2 

DO 

FOR j=l TO 4 
DO 

IF drop=1 THEN EXIT FI 

joy=Stick(0) 

IF joy =11 THEN sx = x x = = -l 
IF virtua1()=shift THEN 
wstaw(sx,y,O) wstaw(x,y,2) 
ELSE x=sx 
FI 

ELSEIF joy = 7 THEN sx = x x = = + l 
!F vir tua1()=shif t THEN 
wstaw(sx,y,O) wstaw(x,y,2) 
ELSE x=sx 
FI 

ELSEIF joy=13 THEN 
temp=time time=0 
opoz = 0 d r o p = 1 EXIT 
ELSEIF strig(0)=0 THEN 

koliz=otocz(pl,p2,p3,p4) 

IF koliz=8 THEN 
wstaw(x,y,O) 
numk1(jaki) 
params(nr) 

IF nr=19 THEN 

x==+2 y=--1 FI 
IF nr = 10 THEN 


ELSEIF i a ki=1 THEN rot=(rot+l) MOD 2 
IF rot=0 THEN dlug=3 

zux-@wxlO zuy=®wylO nr=10 
ELSE d 1 ug = 0 

zux"@wxl9 zuy=@wyl9 nr=19 
FI 

ELSEIF jaki=2 THEN rot=(rot+1) MOD 2 
IF rot=0 THEN dlug=2 

zux=@wx8 zuy=©wy8 nr=8 
ELSE d1ug=1 

zux=@wxl7 zuy=@wyl7 nr=17 
F I 

ELSEIF jaki=3 THEN rot=(rot+l) MOD 2 
IF rot=0 THEN dlug=2 

zux=@wx9 zuy=®wy9 nr=9 
ELSE d 1 u g = 1 

zux-@wxl8 zuy=@wyl8 nr=18 
FI 
ELSE 

rot=(rot+1) MOD 4 
IF j aki=4 THEN 
IF rot=0 THEN dlug=2 

zux=@wxl zuy=@wyl nr=l 
ELSEIF rot = 1 THEN dlug = l 

zux=@wxl3 zuy=©wy!3 nr=13 
ELSEIF rot = 2 THEN dlug=2 
zux=@wx7 zuy=©wy7 nr=7 
ELSE d1ug = 1 

zux=@wx!6 zuy=@wy!6 nr=16 
F I 

ELSEIF jak i=5 THEN 
IF rot=0 THEN dlug=2 

zux=@wx2 zuy-@wy2 nr=2 
ELSEIF rot =1 THEN dlug = l 

zux-@wxl4 zuy=@wyl4 nr=14 
ELSEIF rot=2 THEN dług=2 
zux=@wx6 zuy=@wy6 nr=6 
ELSE d1ug=1 

zux-@ux15 zuy = @wy15 nr = 15 
FI 

ELSE 

IF rot=0 THEN dlug=2 

zux~@wx4 zuy=@wy4 nr=4 
ELSEIF rot=1 THEN dlug=l 

zux-@wxll zuy=@wyll nr=ll 
ELSEIF rot = 2 THEN dlug = 2 
zux=@wx5 zuy r @wy5 nr =5 
ELSE dlug=l 

zux=@wxl2 zuy = ©wy12 nr = 12 
FI 
F I 
FI 

wx = zux' wy = zuy' s 

IF d1ug = 0 THEN pl = -2 p2 = 0 p3 = 2 p4 = 3 


FI 

RETURN 


BYTE FUNC suma(BYTE linia) 

BYTE i,s 

s = O 

FOR i=16 TO 25 
DO 

s==+Locate(i,linia) 

OD 

RETURN(s) 


PROC bzyko 1 () 

CARD i 

FOR i=30 TO 38 step 3 
DO 

Sound(O,220-i,6,8) 
pause(45) 

Sound(0,92, 10, 10) 
pause(330) 

OD 

Sndr s t() 

RETURN 


PROC obsuń(BYTE linia) 

BYTE i,r 

r = I i n i a 

whi1e (iinia>0) 

DO 

FOR i=16 TO 25 
DO 

IF Locate< i,1inia-1)=2 THEN co!or=2 
ELSE color=0 
FI 

P 1 ot(i, 1inia) 

IF linia=r THEN bzykolC) FI 
OD 

1inia==-1 
OD 

co 1or = 0 P1 ot (16,O) Dr awTo < 25, O) 

RETURN 


PROC koniec(CARD pts,lev) 

Graphics(O) CRSINH=1 
PutE() 

Pr i ntF ( "Zdoby 1 es 9td pkt.",pts) 


x = = -2 y = = + 1 FI 
wstaw(x,y,2) 
pause(1000) 

FI 

FI 

pause(ti me) 

OD 

sy = y y==+l 

IF virtua1()=down THEN 

wstaw(x,sy,O) wstaw(x,y,2) 

ELSE spad 1=1 
r zad = y+ 2~d1ug 
joy= (22-y)/4 pts==+joy 
WHILE (rzad>y-2) 

DO 

IF suma(rząd)=20 THEN 
obsuń(rząd) 

ATRACT=0 pts==+50 lin==+l 
IF (lin MOD 10 =0) 

and (1ev<10) THEN 
1 ev = = + 1 

color=2 P1 ot(3, 1ev#2) 

Sound(O,123,12,6) 
pause(10000) 

Sndr s t() 

pts = = + 100 temp = = -500 
FI 

y = = -l 

ELSE rzad==-l 
FI 
OD 

EX IT 

FI 

UNTIL spadł 
OD 

IF y=i THEN zatetris=l FI 
UNTIL zatetris 

OD 

koniecCpts,lev) 

RETURN 


PROC main() 

BYTE a 

DO 

Tetris() 

PutE() PutE() 

PrintFC"Jeszcze raz? [T/N]") 
Open(1,"K:", 4,O) 
a=GetD(1) 

C l ose(1) 

UNTIL a = * n OR a=’N 
OD 
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Program jest napisany na kom- 
paterze Atar 800XL. Jest stosun¬ 
kowo krotki, wczytuje się przez 
około 20 jednostek licznika. Możli¬ 
wości programu są następujące. 

— 4 rodzaje brzmień; 

— regulowana szyb ko sc opada¬ 
nia dźwięku, 

— jednocześnie trzy oktawy na 
klawiaturze; 

— dosc szybka praca pomimo 
użycia Atari Basic. 

Po uruchomieniu programu wy¬ 
bieramy numer brzmienia oraz sz rb- 
kosc opadania dźwięku t już można 
grac Gra się na klawiszach od 
<TAB> do RE ~URN> i od <Z> do <,>. 
Odpowiednio nad nimi umieszczo¬ 
ne są połtony. Początki oktaw są 
przypisane klawiszom: <TAB> — 
dolne C, <U> — środkowe C i <Z> — 
górne C. Klawiszem <START> po¬ 
wraca się do wyboru parametrów 

Piotr Bendyk 
Rumia 

Nadesłany program wykonuje po¬ 
stawione zadanie i to dosyć dobrze. 
Jest jednak napisany bardzo niepo- 
rządme — wystarczy przyjrzeć się nu¬ 
meracji wierszy. To jest — w zasadzie 

— drobiazg, choć wygląda me najle¬ 
piej. Natomiast poważne błędy są 
gdzie indziej (na szczęście w tym 
przypadku nie mają one wpływu na 
poprawną pracę programu). Proszę 
przyjrzeć się wierszom 212, 230, 288 
Znajdujące się tam instrukcje RE¬ 
TURN powodują zakończenie proce¬ 
dury, ale pozostawiają mezamknięte 
pętle FOR/NEXT W każdym z tych 
wierszy instrukcja RETURN powinna 
byc poprzedzona przez POP Nieco 
mniejszy błąd znajduje się w wierszu 
250. Nie przerywa on pracy programu 
tylko dlatego, ze niweluje go instrukc¬ 
ja w następnym wierszu. Błąd ten jest 
spowodowany brakiem instrukcji RE¬ 
TURN po NEXT U. 

Proponowałbym także wprowadze¬ 
nie do programu kilku zmian, kóre 
zwiększą jego atrakcyjność Teraz wy¬ 
korzystywany jest tylko jeden z klawi¬ 
szy konsoli. Można przecież użyć 
wszystkich. Na przykład klawisz 
<START> wybiera niższe brzmienie 
(B = B—1; klawisz <OPTION> wyzsze 
(B = B+1), zaś klawisz SELECT> 
zmienia wartość brzmienia o dwa 
(B = B + 2) Oczywiście za każdym ra¬ 
zem trzeba sprawdzać, czy wartość B 
znajduje się w dopuszczalnym zakre¬ 
sie i odpowiednio ją korygować. Jeśli 
po zwiększeniu uzyskamy B = 5, to 
trzeba zmienić na B = 1 i w ten sposob 
otrzymujemy możliwość zmiany 
brzmienia bez konieczności przery¬ 
wania gry Podobnie przez wykorzy 
stanie klawiszy < + > i <*> można płynnie 
zmieniać czas opadania dźwięku 
Ostatni z klaw szy konsoli — <HELP> 

— można użyć do przerywania pracy 
programu Ze względu na zablokowa¬ 
nie klawisza <BREAK> jest to obecnie 
możliwe tylko przy użyciu <RESET> 
Sposob taki jest mało elegancki i każ¬ 
dy przyzwoity program powinien umo¬ 
żliwiać jego zakończenie bez wyłą¬ 
czania komputera i używania <RESET> 

Wymienione wyżej zmiany spowo¬ 
dują zmniejszenie prędkości działania 
programu. Można tego uniknąć przez 
przeniesienie na koniec części inicju¬ 
jącej (wiersze 4-25) i instrukcji DATA 
Także przeniesienie zasadniczej pętli 
programu (wiersze 30-45) za proce¬ 
dury tworzenia dźwięku przyspieszy 
działanie programu Więcej informacji 
na ten temat można znaleźć w artyku¬ 
le ,Szybki, szybszy, Atari’ opubliko¬ 
wanym w „Bajtku 3/89 

Wojtek 


LISTING 1 


LISTING 2 


XR 

OC 

xz 

NI 

KM 

RH 

BM 

W 

KC 

NJ 

AX 

FF 


ZF 

ZS 


YN 

EU 

PY 

NG 

TA 

BD 

DB 

NK 

SN 

JM 


KF 

ZR 

FC 

SU 


ZK 

ST 

KO 

MD 

ZP 

EX 

KE 

ZI 

NS 

YC 


ZV 

FD 

EB 

LH 

AJ 

WK 

SP 

AB 

FJ 

QW 

TW 


18:FOR U=0 


O REM SYNTEZATOR XTD 

1 REM Piotr Bendyk 

2 REM Copyrigth (C) Bajtek 

3 REM 

4 POKE 566,158 

5 DIM A (255) :RESTORE : TRAP 
TO 255:A(U)=0:NEXT U 

6 READ B,C:A(B)=C:GOTO 6 

10 DATA 44,243,47,217,46,193,42,182,40 
,162,45,144,43,128,11,121,13,108 

11 DATA 8,96,10,91,14,81,15,72,12,64,3 
i,230,30,204,24,173,29,153,27,136 

12 DATA 53,114,48,102,54,85,55,76,52,6 
8,23,60,22,53,18,47,16,45,21,40 

13 DATA 35,35,37,31,32,29,62,57,56,50, 
61,42,57,37,1,33,ERR,ERR 

18 GRAPHICS 2+16:SETCOLOR 0,1,15:P0SIT 
I ON 5,2:? #6;"SYNTEZATOR”:POSITi ON 8,5 
: ? #6;"xtd":SETCOLOR 1,12,5 

19 FOR U= 1 TO 1000: NEXT U 

20 TRAP 20:GRAPHI CS 0:SETC0L0R 2,0,0:S 
ETCOLOR 1,0,15:POKE 752,1:P0KE 729,0:P 
OKE 731,0 

22 7 :? :? "PODAJ BARWĘ BRZMIENIA tl-4 

]: ";:POKE 764 ,255: INPUT B:IF B<1 OR B 

>4 OR BOINT(B) THEN 20 

23 ? CHR$(125):? :? "PODAJ SZYBKOSC OP 

ADANIA DŹWIĘKU:";:INPUT SP 

24 ? CHR$ ( 125 ) : POS I T I ON 6,5:? - 

ZMIANA PARAMETRÓW" 

25 POKE 729,1:POKE 730,1:P0KE 731,255 

30 X=PEEK(764):IF PEEK(53279)=6 AND PE 
EK(764)=255 THEN 20 

31 IF A(X)=0 THEN SOUND 0,0,0 
1,O,O,O:GOTO 30 
35 IF X = 255 THEN 30 
40 ON B GOSUB 200,220,250,280 
45 GOTO 30 

200 POKE 764,255:SOUND 0,A(X) 

R C=1 TO 5:NEXT C:SOUND O,A ( X)+2,14,12 
:FOR C=1 TO 4:NEXT C 

204 IF PEEK < 764)=X THEN 200 

205 IF PEEKC764)0255 THEN RETURN 
208 FOR U=15 TO O STEP -SP 

210 SOUND O,A(X>,14,U:FOR C=1 TO 5:NEX 
T C:SOUND O,A(X)+2,14,U/1.2:FOR C=1 TO 
4:NEXT C 

212 IF PEEK(764)0255 THEN RETURN 
NEXT U:SOUND O,O,O,O:RETURN 
POKE 764,255:S0UND O,A(X ) ,14,15:SO 
1,A(X)+1,14,15 
IF PEEK(764)=X THEN 220 
IF PEEK (764) 0255 THEN RETURN 

FOR U=15 TO O STEP -SP 
SOUND O,A(X),14,U:SOUND 1,A(X)+1,1 


O:SOUND 


14,15:F0 


214 
220 
UND 
222 
223 

225 
228 

4, 15 

230 IF PEEKC764)0255 THEN RETURN 
232 NEXT U:SOUND O,O,O,O:SOUND 1,0,O,O 
:RETURN 

250 POKE 764,255:FOR U=A(X)-2 TO A(X)+ 
2:SOUND 0,U,14,15:IF PEEK(764)=X THEN 
NEXT U 

253 IF PEEK (764) 0255 THEN RETURN 

255 FOR U=15 TO O STEP -SP 

256 FOR V=A(X>-2 TO A(X)+2 STEP 0.6 

258 SOUND O,V,14,U:IF PEEK(764)=255 TH 
EN NEXT V:NEXT U:SOUND O,O,O,O:RETURN 

259 RETURN 

280 POKE 764,255:SOUND 0,A<X),14,15 

282 IF PEEK(764)=X THEN 280 

283 IF PEEK(764)0255 THEN RETURN 
285 FOR U=15 TO O STEP -SP 

288 SOUND O,A(X),14,U:IF PEEK(764)<>25 
5 THEN RETURN 

289 NEXT U:SOUND O,O,O,O:RETURN 


ERRATA 


W programie n Przewiianie rapisów” opubliko¬ 
wanym w „Bajtku” 4/89 znalazły się dwa błędy 
uniemożliwiające jego poprawne działanię. 

W wierszu 50 zamiast POKE 9193,0 powinno^ 
być POKE 8193,0, zaś na końcu wiersza 80 brak 
liczb 98 i 228. ✓ v 

(red) 


XR 

OC 

XZ 
VT 
NJ 
NJ 
B V 
ZT 
JD 
ZV 
CK 
ZX 
NX 


IV 

ZF 

EJ 

EX 


ZW 

SQ 

NR 

JV 

ZG 

EK 

JF 

ZX 

NS 

XG 


ZF 

EJ 

XZ 

KI 

ZJ 

MG 

LV 

ZI 

EM 

AJ 

SR 

FW 

El 

QP 

PW 

IL 

RT 

YW 

BP 

MQ 

KT 

QE 

VG 

NY 

CN 

SI 

AK 

CK 

SJ 

SJ 

AC 


O 

1 

2 

3 

4 

10 

20 

30 

40 

50 

60 

70 

100 


SYNTEZATOR XTD 
Piotr Bendyk 
Copyrigth (C) Bajtek 
Wersja poprawiona 


REM 
REM 
REM 
REM 
REM 

GOTO 600 

B=B+1:IF B=5 THEN B = 1 
RETURN 

B=B+2:IF B>4 THEN B=B-4 
RETURN 

B~B-1:IF B=0 THEN B=4 
RETURN 

POKE 764,255:S0UND O,Y,14,15:FOR 


=1 TO 5:NEXT C:SOUND O,Y + 2,14,12:F0R C 

=1 TO 4:NEXT C 

110 IF PEEK(764)=X THEN 100 

120 IF PEEK( 764) 0255 THEN RETURN 

130 FOR U=15 TO O STEP -SP 

140 SOUND O,Y,14,U:FOR C=i TO 5:NEXT C 

:SOUND O,Y+2,14,U/1.2:F0R C=1 TO 4:NEX 

T C 

150 IF PEEK(764)0255 THEN POP :RETURN 
160 NEXT U:SOUND O,O,O,O:RETURN 
200 POKE 764.255:S0UND O,Y,14,15:SOUND 
1,Y+l, 14, 15 

210 IF PEEK(764)=X THEN 200 

220 IF PEEK (764) 0255 THEN RETURN 

230 FOR U=15 TO O STEP -SP 

240 SOUND O,Y,14,U:SOUND 1,Y+1,14,15 

250 IF PEEK(764)0255 THEN POP :RETURN 

260 NEXT U:SOUND O,O,O,O:SOUND 1,0,O,O 

:RETURN 

300 POKE 764,255:FOR U=Y-2 TO Y+2:S0UN 
D O,U,14,15:IF PEEK(764)=X THEN NEXT U 
:RETURN 

310 IF PEEK (764) 0255 THEN RETURN 
320 FOR U=15 TO O STEP -SP 
330 FOR V=Y-2 TO Y + 2 STEP 0.6 
340 SOUND O,V,14,U:IF PEEK(764)=255 TH 
EN NEXT V:NEXT U:SOUND O,O,O,O:RETURN 
350 RETURN 

400 POKE 764,255:S0UND 0,Y,14,15 

410 IF PEEK(764)=X THEN 400 

420 IF PEEK (764) 0255 THEN RETURN 

430 FOR U=15 TO O STEP -SP 

440 SOUND O, Y, 14, U: IF PEEK ( 764 ) 0255 T 

HEN POP :RETURN 

450 NEXT U:SOUND O,O,O,O:RETURN 

500 X=PEEK(764):ON PEEK<53279) GOSUB 3 

O,30,20,30,40,60:IF PEEK(732) THEN 700 

510 IF X=7 THEN SP=SP-0.04:POKE 764,25 

5:IF SP<0.01 THEN SP=0.02 

520 IF X=6 THEN SP=SP+0.04:POKE 764,25 

5 

530 Y=A(X):IF Y=0 THEN SOUND 0,0,0,0:S 
OUND i,O,O,O:GOTO 500 
540 IF X=255 THEN 500 

550 ON B GOSUB 100,200,300,400:GOTO 50 
O 

600 GRAPHICS 2+16:SETCOLOR 0,1,15:P0SI 

TI ON 5,2:? #6;"SYNTEZATOR":POSITI ON 8, 

5:? #6;”x td”:SETCOLOR 1,12,5 

610 POKE 566,158:DIM A(255):RESTORE :T 

RAP 630:FOR U=0 TO 255:A<U)=0:NEXT U 

620 READ B,C:A(B)=C:GOTO 620 

630 TRAP 630:GRAPHI CS 0:SETCOLOR 2,0,0 

.•SETCOLOR 1,0, 15: POKE 752,1: POKE 729,0 

:POKE 731,0:B=1:SP=1 

640 POKE 82,6:? CHR$(125):POSITI ON 6,5 
:? " gEEBH ~ NIZSZE BRZMIENIE" 

650 ? : ? " filsMIilgl - WYZSZE BRZMIENIE":? 

:? " gglgjgfl ~ SKOKOWA ZMIANA BRZMIENIA 
": ? : ? " {Hag - KONIEC PROGRAMU" 

660 ? :? :? CHR$(27);CHR$(158);" - SZY 
BSZE OPADANIE" 

670 ? :? CHR$(27);CHR$(159);" - WOLNIE 
JSZE OPADANIE" 

680 POKE 729,1:POKE 730,1:POKE 731,255 
:POKE 732,O:GOTO 500 

700 POKE 566,146:POKE 729,48:P0KE 730, 
6:POKE 731,O:POKE 82,2:GRAPHICS O:END 
800 DATA 44,243,47,217,46,193,42,182,4 
0,162,45,144,43,128,11,121,13,108 
810 DATA 8,96,10,91,14,81,15,72,12,64, 
31,230,30,204,24,173,29,153,27,136 
820 DATA 53,114,48,102,54,85,55,76,52, 
68,23,60,22,53,18,47,16,45,21,40 
830 DATA 35,35,37,31,32,29,62,57,58,50 
,61,42,57,37,1,33 
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GRANICE TECHNOLOGII 



KOMPUTER Z CHLAPACZEM 


Kilka lat temu nie śniło się 
nam nawet, że tak niedobre 
urządzenie, jakim jest kom¬ 
puter, może mieć jakiko¬ 
lwiek związek z motoryzac¬ 
ją. Obecnie w większości 
samochodów komputer „po¬ 
kładowy” stanowi prawse że 
standardowe wyposażenie; 
okazuje się jednak, że związ¬ 
ków komputera z motoryza¬ 
cją jest znacznie więcej. 

Podczas wizyty w jednym ze skle¬ 
pów PEWEX“U przypadkowo zupeł¬ 
nie dowiedziałem się, ze dwa chla- 
pacze ze znakiem firmowym do sa- 
moc h odu zagranicznego kosztuję je¬ 
dyne 36 dolarów; jest to cena podej¬ 
rzewam, całkiem rozsądna i prawdo¬ 
podobnie nawet PEWEX ma na takie 
chlapacze zbyt, skoro są one dostę¬ 
pne. 

Oczywiście człowiek zdrowy na 
umyśle nigdy danych chiapaczy me 
kupi za równowartość 250000 zło¬ 
tych, lecz pójdzie do pierwszego 
lepszego sklepiku prywatnego albo 
zwinie sąsiadom dwie gumowe wy¬ 
cieraczki spod drzwi. Dorobienie od¬ 
powiednich wsporników metalowych 
zleci się panu Ziutkowi w państwo¬ 
wej tokarni za 5 tysięcy i ktopot z gło¬ 
wy. Żelazne prawa rynku dowiodły, 
ze chlapacz zachodni wcale me jest 
lepszy od krajowego, zwłaszcza jeśli 
się jeździ po tak równych drogach, 
jak warszawskie ulice, gdzie nierzad¬ 
ko można urwać cały tylny most z 
bagażnikiem włącznie, a me tylko 
głupi chlapacz. 

W tejże samej sieci sklepów kom 


puter Commodore 128D dzięki nie¬ 
słychanej łasce speców od handlu 
staniał obecnie do ceny 540 USD 
która to cena byłaby może nawet i 
aKtualna, ale w 1985 roku Jakie są 
efekty tego kroku dla samego PE- 
WEX-u nie wiem; wiem tylko tyle, ze 
komputer AMIGA można kupie bez 
żadnych problemów na giełdzie za 
400—450 USD co oznacza, ze pry¬ 
watny import znacznie lepiej wczuł 
się w sytuację, aniżeli przedsiębiors¬ 
two w zasadzie predestynowane do 
robienia takich transakcji. Nie da się 
bowiem żadną miarą ukryć, ze AMI¬ 
GA jest komputerem o niebo lep¬ 
szym od wspominanego C-128D i 
budzi obecnie znacznie więcej za¬ 
chwytu, choćby ze względu na szyb¬ 
kość, grafikę czy nowszy procesor 

Niestety PEWEX albo AMIGI nie 
lubi, albo me zdaje sobie sprawy, jak 
dobry interes można na mej ubić. Co 
prawda słyszałem plotki, że AMIGA 
objęta jest embargiem technologicz¬ 
nym, co jest o tyle wesołe, że Al ARI 
520ST i pokrewne niewiele różnią 
się od wspominanej AMIGI pod 
względem technologicznym, a jed¬ 
nak w jakiś niewątpliwie cudowny 
sposób docierają i zalegają półki 

Odrębną i niezmiernie frapującą 
sprawą są zielone monitory produkcji 
rodzimej z powodzeniem sprzeda¬ 
wane na giełdzie za 30 dolarów Mój 
niekłamany zachwyt i podziw wzbu¬ 
dza tu fakt, ze na monitorze można 
czasem wyświetlać różne zielonka¬ 
we napisy, a na dolarze nie. Dziw¬ 
nym trafem jednak kolor obydwu jest 
jakby ten sam 

Nikt mi me wmówi, że nasz prze¬ 
mysł elektroniczny me wie, jak się 
monitory produkuje; swego czasu 
kosztowały one nawet drożej od te¬ 


lewizorów co było najlepszym do¬ 
wodem na następne prawo rynkowe 
że mniejsza ilość podzespołów 
może kosztować znacznie drożej po 
mimo identycznej konstrukcji. Niez¬ 
bite jest, ze swego czasu monitory 
były, teraz ich nie ma do czego je¬ 
steśmy od jakiegoś czasu przyzwy¬ 
czajeni Tu komputery mają przewa¬ 
gę nad motoryzacją, gdzie opon na 
przykład poza PEwEX"-em lub giełdą 
się me zobaczy zastanawiam się tyl¬ 
ko, czy ktokolwiek prowadzi w kraju 
statystykę, ile osób juz zginęło dzięki 
jezdzie na łysych lub uszkodzonych 
oponach. Takiego niebezpieczeńst¬ 
wa me ma w wypadku monitorów to, 
ze kilkadziesiąt tysięcy młodych ludzi 
popsuje sobie wzrok, gapiąc się w 
migoczące telewizory, nikogo spec¬ 
jalnie me obchodzi. 

Z drugiej strony miłe jest, że moni¬ 
tor jest na giełdzie tańczy od pary 
chiapaczy; na chlapaczach dane mo¬ 
żna co najwyżej wyryć, a długotrwałe 
wpatrywanie się w znak firmowy 
może doprowadzić do niezdrowych i 
niesłusznych porównań i skojarzeń 
Ponadto za brak chlapacza rypną Ci 
mandat, a za brak monitora i popsuty 
wzrok me. 

Moj znajomy twierdzi, ze bajtodo- 
lar (symbol BS — me mylić ze 
zmienną tekstową B$ !), który całko 
wicie zmonopolizował rynek mikro¬ 
komputerowy w kraju, me ma szans 
wpływania do sakiewki PEWEX u do¬ 
póki specom od nakłaaama marż i 
podatków me wyświetli się komuni¬ 
kat STRING TOO LONG, ERROR 
podczas kalkulacji nowej „atrakcyj¬ 
nej” ceny. Moim zdaniem me ma 
obawy — oni me mają przecież mo 
nitorów, bo i skąd. 

Klaudiusz Dybowski 



128 


Prawdopodobnie nikt w fir¬ 
mie Berkeley Softworks nie 
przypuszczał, że GEOS będzie 
jednym z najlepiej sprzedają¬ 
cych się systemów ala C-64 i 
C-128. W ciągu kilku lat ukaza¬ 
ło się 5 jego wersji (cztery dla 
C-64 s jedna dla C-128), nieba¬ 
wem na rynku pojawi się naj¬ 
nowsze dziecko — GEOS V2.0, 
który sądząc po ilustracjach re¬ 
klamowych gwarantuje użytko¬ 
wnikom zupełnie nową jakość. 

Dzięki upr/e|mosci jednego z moich przyjaciół 
'TTdłem OKazjo zapoznać się . weisjo GEOS d’a 
C-128. Szczerze mówiąc spodziewałem się :hyba 
czegoś więcej GFOS i°8 po awił we nnie 
uczuc.e pewnego niedosytu choc dla fanów tego 
systemu jest on dość łakomym kęskiem 
W porównaniu z wersję VI.3 dla C-64 GEOS 128 
oferuje głównie dwa ulepszenia, po pierwsze szyb¬ 
kość (praca w oparciu o zegar 2 MHz) oo drugie 
możliwość (nareszcie 1 ) korzystania z dwustronne¬ 
go trybu pracy stacji 1571 Trzecię nowością jest tu 
praca zarowno w 40 jak i 80-znakowym trybie pra¬ 
cy co oczywiście znacznie polepsza ■ czytelność i 
lakośc grafiki Ma to duże znaczenie pi ze te wszyst¬ 
kim podczas pracy z programami GEOWRITE (gra 
liczny edytor tekstu ) > GEOPAiNT (edytor graficz¬ 
ny") 

Na kłopoty natknąłem się juz podczas pierwsze¬ 
go uruchomienia systemu w trybie 80 znakowym 
Po wczytaniu czołówki programu została zerwana 
synchronizacja obrazu co jak się potem okazało 
nie jest odosobnionym przypadkiem Próbowałem 
uruchamiać GEOS 128 na kilku monitorach — za 
wsze z tym samym skutkiem Oczywiście posiada¬ 
czom lepszych monitorów (z potencjometrem 
synchronizacji wyprowadzonym na zewnątrz) nie 
trudno będzie ustawie odpowiednio obraz posia 
dacze rodzimych Neptunów zmuszeni jednak 


będę do grzebania w monitorze co me jest an be 
Diec/ne ani pożądane W każdym raz e dom 
bym mr ej zaawansowanym wykonanie tej cpt ■ 
pod troskliwym 9 ; oku tach 

Na duży pius należy akczyc auto* rm n> 
korzystania z większości programów > . . j . 

pod kontrolę GEOS na C 64 Mowa tu zy sl 
3 programach wydanych p-zcz * 
niektóre programy użytkowe pisane pr 7 c c 
rnw sy 11 *patyków nie będą dz j<nł\ dyiyr 
ograniczeń em na jakie się tu natknąłem była kc 
mecznoso przełączenia trybu nracy : 4( 
znaków Można tego lokonau albo poprzez um 
GEOS i jeję SWMCH 40/80 a'bo w ęhwi 
chamiama systemu 

B-.v . udnych problemów działają pu gra-ry te< 
jact Jia cl ukarek progi imy obsługi,,i r, i <wr z 
(joystick myszka pióro Aoerm W ""Er WRl T 
możiiwf jest korzystanie . ze.st.iwu ^ 
aem c tio : C-64 codom < ' CE ■■ 

w. wozy 1 , Aiarnę rysunków wykonań ,h n« • 4 
W obu wspomn gran, jnaa . i 

• łacza' . e i w tr. 1 ■ f 2 i ik? 
wym widzimy oo z iły lęksi j yt rnek 

Nieco naczm rw 3’ liEOPAINT oh 

i konam symbolu m ?c, r ar/yt.-oiy kreślą* sku* 
ołowe k yum', , sp* Puiawia|ą i 

ekranie łomem o> nałożeń wskaż myszk 
ab joysiirk.i n eroCKión 

nej częśt CKon w< śniąc i zycisku Penów., 
wciśnięcie powoduje n Jr nikniecie 
Znacznie u epszono opcję R[ SET W O 64 jej wy 
oói pcwr.ee wał automatyczny iw > do BASIC w 
C-128 natomias* powoduje ona jedynie pow r o ; dc 
stanu jak zaraz r wczytań i u uchom w de 
*ru. Jest to (. tyle wygodne ze w razie jak ejs 
wpadk (np próby orzen es ena zbroiów pom ędzy 
dyskietkam o tych samych nazwach) rne u z oba 
wyłęczac komputera wczytywać system oo 
nowa 

W ele c pcji niestety n<| ostało zmienionych Na 
przykład kopiowanie piogramow z dyskietki vh dy 
skietkę (gd\ ożywamy stac|. 1571 ■ wymaga wr ; ąz 
tych samych dość uciąż wych operacji (wyprowa 
dzena kony lub ikut na ramkę zmiany dys;k etk 
itd ) Biorąc ood uwagę, ze ia dyskietce tak ei mie 
sci się teraz 336 KB to opemcta ta nurrat' . uja Ju 
bre 30 minut przy przenoszeni a kudzie c cni. 
zbiorów. Podobnie uporządkowanie katalogu a 
kietki (przenoszenie zbiorow ze st r ony na stronę 
kasowanie) zajmuje również noro czasu W mo 
gramie sterującym dta myszk można było dodać 
procedurę obsługującą dugi n ewykor/ysty-w n 
zwykle przycisk czego jednak rne uczynione Nc 
cóż. może następca czyli wersja V2 0 zf kwiaujc 
pozostałe braki 

Reasumując GEOS 128 jest na uewru uiepszo 
ną wersja systemu lecz wersją która me wykurzy 
stała do końca możliwości tkwiących w C-128 
Oferuje ona użytkown kowi kilka istotnych zmian 
co jednak wiąże się raczej ze zmianą komputera 
aniżeli przystosowania czy modyfikacji koncepcji 
samego systemu 

Klaudiusz Dybowski 


-WALKER - 
-DEMO- 
-I INNE,..- 

Skromne możliwości graficzne i 
muzyczne Amigi potrafią przypra¬ 
wie o nerwowy tik posiadaczy ma¬ 
szyn takich jak Zx Spectrum nawet 
jeśli ukochany „Spektruś” ma ge¬ 
nerator dźwięku oparty na chipie 
AY3-8910. Wielu posiadaczy oacie- 
tow graficznych na małe Atari la 
kich jak „Coala Micro Ilustrator’’ 
nerwowo przełyka ślinę, gdy widzi 
skromnego „Delux Paint’a’ Połą¬ 
czenie, przez zdolnego programi 
stę, dźwięku, grafiki i animacji w grę 
lub program demonstracyjny potraf 
zwalić z nóg nawet posiadaczy Atar 
ST W wielu grach kierujemy posta 
ciami ze znanych kreskówek takich 
jak „Rożowa Pantera” czy „Micke\ 
Mouse" specjalizuje się w tym fir¬ 
ma Byte Magie). Gry Dragon’s Lair i 
Space Ace to w zasadzie filmy ani¬ 
mowane, których jakości me po¬ 
wstydziłby się nawet Disney, a Wai- 
ker Demo to krotki film przypomina¬ 
jący sceny z „Imperium kontrataku¬ 
je Niestety, trzy ostatnie dostępne 
są tylko dla szczęśliwych posiada 
czy co najmniej 1 MB RAM 

MB. 


INSIDE 

COMMODORE 



Książka ta trafiła do moich rąk w zupe¬ 


łnie przypadkowy sposob — skuszony 
raczej ceną aniżeli potrzebą podczas wi¬ 
zyty w małej księgarence nabyłem ją za 
sumę jednego dolara i 25 centów. „Poza- 
ginane okładki” — oświadczyła sprzeda¬ 
wczyni na moje zdziwienie. Pod naklejką 
z ceną widniała cena o ryginalna —19.95 
$. 

Nie tak dawno miałem okazję przedsta¬ 
wić Czytelnikom dwie Unne publikacje 
tego typu — „1571 INTERNALS" i „ANA- 
TOMY OF THE 1541 OlSK DRIVE”, obie 
wydane przez firmę DATA BECKER z 
Dusseldorfu. „INSIDE COMMODORE 
DOS” jest również mapą pamięci stacji 
1541 zawierającą -ydruk pamięci ROM z 
komentarzem. 

Ksążka ta oferuje jakby nieco bogat¬ 
szy tematycznie materiał: sam wydruk 
zawartości ROM jest krótszy i pełniej 
skomentowany, przedstawiono tu rów¬ 
nież bardzo wiele gotowych do wprowa¬ 
dzenia programów. Dzięki temu Czytel¬ 
nik, jesii nawet nie bardzo „chwyta” te¬ 
mat, to za pomocą gotowego programu 
może sobie szybko empirycznie spraw¬ 
dzić, o czym jest mowa w książce. 

Tekst jest przedstawiony w sposob jas¬ 
ny i przejrzysty; dużą zaletą jest wyjaś¬ 
nienie wielu kwestii wątpliwych, a nie 
omówionych w firmowej instrukcji ob¬ 
sługi. Przykładem mogą tu byc np. pole¬ 
cenia B-R i B-W; większość programi¬ 
stów zastępuje je zwykle poleceniami ró¬ 
wnoznacznymi „Ul” i „U2”. Wyjaśnienie 
tego i wielu innych zagadek znajdziesz w 
tej książce. 

Sam wstęp dia początkujących może 
się niektórym wydać zbyt krotki; z dru¬ 
giej strony od tego właśnie jest instrukc¬ 
ja obsługi. Zaoszczędzone w ten sposob 
miejsce przeznaczono (z dobrym efek¬ 
tem) na informacje znacznie ciekawsze. 
Zapewne niewiele osób wie, że właśnie z 
tej książki pochodzą popularne swego 
czasu programiki do tworzenia błędów 
na dyskietkach (np. „23 ERROR”), 
„BULK ERASER 1541”, „GCR-HEX” i 
wiele innych. Ważne jest również to, że 
programy te w zdecydowanej większości 
są dobrze omówione, dzięki czemu moż¬ 
na nie tylko „wpalcowac”, ale i zrozu¬ 
mieć dane zagadnienie. W wielu wypad¬ 
kach oprócz wersji programu w BASIC-u 
podane są również wydruki źródłowe 
Programów lub procedur napisanych w 
języku maszynowym. Gdzieniegdzie pro¬ 
cedury takie są również dość dokładni 
objaśnione (w sensie komentarza do po¬ 
szczególnych instrukcji). 

Do unikalnych tematów możną zali¬ 
czyć bardzo dokładne omówienie kon¬ 
wersji danych na format GCR. Jak wia¬ 
domo kodowanie to stanowi klucz do 
przyspieszenia działania stacji i tworze¬ 
nia własnych programów przyspieszają¬ 
cych (żargonowych „dopalaczy”). 
Oprócz tego wyjaśniono przyczyny nie- 
kompatybitnosci stacji 1541 (niemoż¬ 
ność zapisu na dyskietkach) ze starszy¬ 
mi modelami (np. 4040), zawarto zesta¬ 
wienie błędów DOS Y2.6, porównano 
dwie wersje ROM stacji — E 0 1229-03 i 
901229-05. Roztrzepani z kolei znajdą tu 
kilka ciekawych porad*" dotyczących 
odzyskiwania zbiorów z dyskietek usz- 
rodzonych czy nawet sformatowanych. 

Moim zdaniem „INSIDE COMMODORE 
DOS,” jest publikacją dła raczej zaawan¬ 
sowanych Czytelników. Do dokładnego 
zrozumienia wszystkich omawianych w I 
książce zagadnień na pewno będzie j 
przydatna (a miejscami niezbędna) głęb- 
sza wiedza o funkcjonowaniu takich 
urządzeń w ogolę. 46 gotowych do wpi¬ 
sania programów umożliwia z kolei szyb¬ 
sze zapoznanie się z wyższymi pozioma¬ 
mi wiedzy o stacji i jej pracy. Zawarte w 
książce proyramu uzupełniają się zresz¬ 
tą wzajemnie, tworząc dość uniwersalne 
narzędzie pracy i dla początkujących i 
dta zaawansowanych. Z mojego punktu 
widzenia przewodnik ten jest momenta¬ 
mi niezastąpiony, zwłaszcza przy rozwią¬ 
zywaniu nieco trudniejszych kwestii — 
np. programowaniu „wirusów”. 

Klaudiusz Dybowski 

Richard Intmers, Gerald G. Neufeld 
„INSIDE COMMODORE DOS” 
Wydawca: DATAMOST, Inc., j 

Wydanie drugie z 1985 : 

Stron 508 f cena 19.95$ i 

ISSN 0-8359-3091-2 
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KLAN COMMODORE 

GRAFIKA 



iinciude <exec/types.h> 
iinciude <graphics/gfx.h> 
imclude lgraphic5/gfxba$e.h> 
imclude <hardware/d»abits.h> 
imclude <;hardware/cust 08 Lh} 
iinciude <graphics/ęfxsacros.h> 
imclude <qraphics/rastport.h> 





% 




iinciude (graDhics/Yieu.ri) 
imclude <exec/exec.h> 

idefine BEPTh 3 





#d9fine HIBTH 640 


1 


#defme bRAKRAH -i000 


M| 

1 L 

Idefine X0 320 



1 

idefine YO i00 




struct View v; 


ii inicjałisacja struktur i/ 


Wielu posiadaczy kompu¬ 
terów lubi bawić się grafikę. 
Nie da się ukryć, że połącze¬ 
nie Amigi i dobrego kompi¬ 
latora może dac interesują¬ 
ce efekty. Jednak, zanim 
uda nam się otrzymać upra¬ 
gnioną kreskę od punktu 
0,0 do 100,100 w kolorze 
zielonym, musimy pokonać 
wiele barier, jakie stworzyli 
programiści ROM-u Amigi. 
Postanowiłem pokonać te 
bariery i narysować kreskę 
na ekranie mojego monito¬ 
ra. 

Najbardziej ucierpiał przy tym kot, który 
me dosc, że nie dostał obiadu, dopóki 
nie skończyłem, to jeszcze trafiłem go 
kapciem, gdy zbyt namolnie domagał się 
swoich praw 

Aby otrzymać wyżej wymienioną kres¬ 
kę, należy najpierw napisać program ry¬ 
sujący ją musimy zatem wybrać język, w 
jakim go napiszemy Oczywiście najle¬ 
piej napisać program w C, gdyż me ulega 
wątpliwości, ze szybkość rysowania kre¬ 
ski w C jest zdecydowanie większa niż, 
dajmy na to, w Basicu. 

Pierwszym krokiem w kierunku naszej 
kreski jest zorganizowanie danych ekra¬ 
nu w strukturę zwaną V ew Struktura ta 
składa się z jednego lub kilku View- 
Port ow, które określają części ekranu, 
oddzielone co najmniej jedną poziomą, 
pustą limą Dzięki temu można otrzymać 
obraz, który składał się będzie z kilku 
części o rożnych rozdzielczościach 

Aby opisać View Port, należy ustawie 
jego parametry wysokość (w liniach), 
szerokość (w pikselach) i tryb graficzny, 
oraz podać wskaźnik do palety koiorow. 
informacji o pamięci ekranu (Raslnfo) i 
następnego ViewPortu (jeśli takowy ist¬ 
nieje). Wysokość opisuje zmienna DHe- 
ight, szerokość DWidth, tryb graficzny 
zmienna Modę, która składa się z nastę¬ 


pujących bitów DUALPF, PFBA HIRES 
LACE, HAM i SPRITES 
DUALP włącza tryb dwuplanowy, tzn 
obraz jest tworzony na dwóch ekranach 
nałożonych na siebie, gdy ustawiony jest 
bit PFBA wtedy ekran drugi jest wy¬ 
świetlany nad pierwszym 
HIRES ustawia tryb wysokej rozdziel¬ 
czości tj. 640 pikseli zamiast 320 (pozio¬ 
mo) 

LACE ustawia tryb dzielony (ang „inter- 
laced ”) tj 400 zamiast 200 linii 
HAM włącza tryb Hołd -And Modify, który 
pozwala na otrzymanie wszystkich 4096 
barw na jednym ekranie 
SPRITES informuje system, że używać 
będziemy spnte’ow 
Obraz tworzony w pamięci może być 
większy mz obszar objęty ekranem 
Obraz tak , zwany rastrem może mieć 
maksymalnie 1024x1024 punkty a po¬ 
nieważ me mieści się w całości na ekra¬ 
nie, należy zdeklarować, który kawałek 
ma być wyświetlony Określają go 
zmienne RHeight, RWidth, RyOffset, Rx- 
Offset, DHeight, DWidth, DyOffset, Dx~ 
Offset. RHeight i RWidth opisują wyso¬ 
kość i szerokość rastru, RyOffset i RxOf~ 
fset pozycję lewego gornego rogu okna, 
przez które oglądamy rysunek, DWidth i 
DHeight wysokosc i szerokość tego 
okna a DyOffset i DxOffset pozycję okna 
na monitorze komputera 
Zatem, aby otrzymać ekran, na którym 
można cos narysować należy, 

zdefiniować struktury w których mają 
byc zawarte dane obrazu 

— otworzyć bibliotekę graficzną 

— przygotować struktury View i V;ew~ 
Port, a w mej: BitMap Raslnfo i mapę 
koiorow 

dołączyć strukturę View do listy roz¬ 
kazów procesora graficznego 
Aby wyświetlić obraz zawarty w View, 
należy załadować go instrukcją Load- 
View() włączając tym samym DMA (di- 
rect memory access). Jak osiągnąć to w 
praktyce pokazuje program obok 

Na podstawie ROM Kernel 
opracował 

Marcin Bojko. 


struct ViewPort vp 
struci Raslnfo n; 
struct ritHap b; 
struct RastFort rp; 
struct View scłovi 
struct Co lor (łap lc$? 


ii wskaźnik to staraj struktury view li 
ii wskaźnik do tace1 1 koiorow cs ii 


snort 

struct Colorflap iSetColofMapO; 

struct bfsBase ISfsBase; ii wskaźnik do bidłlotek \ graficznej i/ 
mt HatPTransBase,HatdBase: 


uSHORT cuiDrta&lef j=i / i tace la Kolorów ?./ 

0x000,0xf00, OjcOfG. 0*00f, 0x495, Gx62a,0xf?c 
U 

LmOR D kolo r o a ietts; 
a i n i i 

i 


.■i mezostna uioiictekę Graficzna i/ 

u *■ x s a ss - i s i •' u z z Bfmse * łypenu srar y t Ł qraohics, 1 1 Pr ary , 0 n 
in iur?;Basa -= Mjll ) er: t U): 

i otwórz przydatne radlicteni era*, rznę; ccc stawową z Rutf * 
itu na i nBase-dps u i D - ar y «atn - fu - i i oz ar V . 01) < 1 e •; i r, u j 
r -1 i o o o a z k o w a z o y s k u •• s z n, z o s i z o .* % i 

ifOHathT? ar:basE-’t:. & -.._:or 3 -- - 'sam u 3^5, t icrary ,u) K bprit-i; 


- • ? i i. V » 8i v : 

i »v i e w r o r c r y. v p; 

i i • ; • v - u i . tv v y ! 


* 1 Hi ci-r; ja 1 i2JJ WSW i. 

• t prZy UCZ y;SWWDrt HD i 18W I- 

* i inicjalizuj yiswrc r h 


m.-DHsio; C-hEIGHT; 
•/p.Rasmfo^n \ 


? ustaw SZtrOKCbC i 3 ‘ 

* ^ v sok os ó Vic--orz’u *•• 
l informacje o rastrze r-a 
> Wysrka rczdz;-jczcśc I; 


a s i e * r: .*:/ 


i ń u B i cf--"* i & ii,DEP t h 5 w 1 t s 7R, hE i Gh r i; ; i i rac ja i zuj --aue sitowa u 

n.Mitnaę-óui /* o-oa sitowa majuuie s: * & o I 

!■ ,» vf't fsst- J: 

■*1 r ;p t'*;; 
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Si** . •- - ?' '* - n 

^er^e^TT 1 • V- --- * ~~ mt ^ 1 s jf m Y r TT*Hl T IfMTWTTfWTW 

-etHait -kr p , •; •; 

o i u', i >*c i iV ife-w; i iapia-z - as? tam- strugu? * /; .-•. w 




7;T, fi 6 j 

i 3 i • c ii s - 

L jSUvłfc'W-‘Vvl \ 


i Zżi a uh -i 


Setrtrpn ■ .vr*Ł, i •: 


i 

a.- v:' h •: 

-. sunef: i i: 


> r.arysL.; 


LcUv \i-K- , 


Cfcr- -j w y~i- 

LHJ li 

.CdC/icwiO* 1 ?;& . 

i 

r -- v .Mdi 

3 .. i* .. 1 L c- •{ 

sau it-, , 

• I 

■•■jCifi-8; ra - 

3 j C ■- - r c 

rr-rć esr f \ i i 

1 

i- .i -i i I: i v C- •: i. ^ 

ii 

. 3 s 8 _ i o y a r. ■:= - -j a 3 s \ 

■ l 

~J L VABł t Ł 

'* 3 Lt . w ! l 


3 i 3 3 fc’L i L; ■' d • *' .■: ? 1 : - i d"Si'u bc ■ i 
L- t 5 3 L i U T -sf r i:" 6. i , 3 t- 3 r . ! ) 


r .*' ser^iC:' •/ 


•- i 1 CdSidC ki-1 ar»U - 

r * B€- ast er;:, P i a nes ■ l.siuM.iiEi 6* i . 

j 

F •■' e £ C o i a r ii a p i c § /: /I , w o i n i j c c f: * r z t = s & i e *: c• i o r owi 

n :>•aśiczne struktury pomocni :żb i 

- r 8tf V : or C Cepu 5,5 i. eVp} ? 

FreeC?rU at \ /._0FLpi- List > : 
returniO;; 


ii r*vsur»8n ty niiiai gubi a - i&ozna tworzyć wic.e c*-_ a wyr*' . -,jn»r.w 
i po!eca« .at<c lj p v a~iKi yo^uaterawej" I.j. ar^ei*;, ponizs:, prz> łac 
*: zastał ZdLierpma:- z tej wiasnis ysidzri a 
Ryauney \) 

\ 

śn cl lice Lsath. a > 



Pentagon Wydał tysiące dolarów na an- 
tyseptykę po czym stwierdził, że jedynym 
Sposobem na ustrzeżenie swoich kompu¬ 
terów przed wirusami jest odłączenie ich 
od sieci krajowej. 

Wirusy atakują prawie wszystkie typy 
komputerów. Pojawiły się nawet na Com- 
modore 64. Amigi „chorują” ha nie na¬ 
gminnie, stąd pomysł cykiu artykułów, w 
którym opisywane będzie działanie i spo¬ 
sób na niszczenie najgroźniejszych. 


lAMMCA 


i i nc iuCt < u ora' i es/siat rmfo - n, 

Spirali(Oi; 

SpirainPIł; 

Spirali(Pl/2); 

Spirali i3irl/2r; 

Circ1^4320,100.ISO,W): 

/ 

Circie(;-i 8 y,rł ? ri} 
mt x,y,ri,r2; 

i 

fioat ł\ 

Hgve («rp, m . y-rr 2 / i 
f o r (a=0; a< T śiG_r' I; a=a r 0.1 1 
{ 

Drawiirp, not) irllSFSinU/+ ). not) (f21b*-Cos<a/-«-y/ 1 ; 

} 

} 

SpiralilaO) 
fioat aO; 

( 

ifdet.ne R ISO 
tdefms H 3 

mt x,y,i-0; 

FiGdt a f r.; 

k=0.I«R/iN»T«0_PIii 

Hove^rp ? XU f YOi : 

tor (a=y;a<«? i «u r *;a-a^o, i ;• 

T 

\ 

1 i nt) i AU+k i i śSF S i n 1 a+aO ż) j 
i- (i nt i s yO+k i i iSFCos \a*a0i/ 2;-; 

Dra»ł2trp t x,y/ i 

+ł i? 

i 

/ 

} 

/i kof,piłowamei cc -5 +1 nazwa.c Uoispikior Aztec Cl 
konsolidowanie: In nazwa.o -ic32 -im32 ii 


€XKftMINATOR 


Tak jak dawnymi czasy 
„Byte Bandit” siał popłoch 
na warszawskiej giełdzie, 
tak teraz niejaki „Lamer Ex- 
terminator” w Krakowie. 

Siedź ał by on sobie w tym historycz¬ 
nym mieście, lecz niedawny zlot wy¬ 
wiózł go poza granice szanownego 
grodu Jest to wybitnie złośliwy wi¬ 
rus Nie tylko zapisuje się na boot- 
-bloku, ale także niszczy jeden, wy 
brany losowo (a raczej pseudoloso- 
wo, bo na liczby losowe tez jest algo¬ 
rytm, jak mawia BrOmba — kolega z 
klanu Spectrum), sektor na dysku 
Zapisuje cały sektor słowem Lam- 
mer, przy czym nse liczy sumy kon¬ 
trolnej bloku. Trafiony program na 
pewno nie będzie działał — oroba 
wgrania go kończy się komunikatem 
systemowym Volume „taki to a taki” 
nas read write error — no i teraz nie¬ 
zależnie jak będziemy klęli — pro¬ 
gram jest me do uratowania Lammer 
z reguły atakuje najpotrzebniejszy 
lub najciekawszy program z dysku 
(pewnie zgodnie z jakimś prawem 
Murphy ego Tak się składa, ze za¬ 
nim skojarzymy nasze „padające” 
jak muchy dyski z robotą wirusa, a 
me z niesolidnością firm Fuji i Kodak, 
jak się na początku zdawało, Lam¬ 
mer jest wszędzie, albo prawe 
wszędzie Usunięcie go, dopoki re¬ 
zyduje w pamięci, me jest takie pro¬ 


ste, gdyż przejmuje on kontrolę nad 
niektórymi przerwaniami systemo¬ 
wymi i niweluje wszystkie ataki — 
nie pozwala na zapisanie boot- bloku, 
a ponadto Virus X 2 0 me wykrywa 
go, mimo ze ma Lammera w swoim 
spisie Co prawda niektóre virus-kil- 
lery zabijają go w pamięci, ale jest to 
pyrrusowe zwycięstwo gdyż zaraz 
po zgłoszeniu triumfalnego komuni¬ 
katu „Lammer Eksterminator killed” 
pojawia się następny . Software faili- 
ture ...” i zabawa zaczyna się od po¬ 
czątku Jest to zapewne sprawka 
złośliwych programistów którzy wy¬ 
puścili drugą wersję wirusa, gdy po¬ 
jawiły się przeciwciała zabjające 
pierwszą Są jednak dwa sposoby na 
pozbycie się wrednego faga Pierw¬ 
szym jest wgranie „Virus Eksperta”, 
który jako jedyny wygrywa pojedy¬ 
nek z Lammerem w RAM Drugi 
sposob (zupełnie niesportowy) to wy¬ 
startować komputer ze zdrowego dy¬ 
sku (czasem ciężko jest znaleźć ta¬ 
kowy w swoich zbiorach), wgrać 
zwykłego virus-killera i wytłuc wszy¬ 
stkie okazy Lammera na dyskach 
Teraz jeszcze tylko usunąć spusto¬ 
szenia w zbiorach i pojedynek z 
Lammer Exterminator’em mamy za 
sobą Ciekawe, z kim będzie następ¬ 
ny'? 

wirusa zbadali i opisali 

Marcin Bojko 
i Mateusz Krauze 
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Zdecydowanym standartem naszych 
biur, urzędów, instytucji i fabryk stafy się 
komputery klasy IBM PC. Dostępne na 
ten sprzęt oprogramowanie wyznacza 
także pewne wzorce dla wielu progra¬ 
mów. W dziedzinie języków programo¬ 
wania takim standartem jest kompilator 
Turbo Pascala firmy Borland. Nakładki 
systemowe reprezentowane są przez 
XTREE, Norton Commander i 1DIRPLUS. 
Wzorcem edytorów dyskowych jest pa¬ 
kiet Norton Utilities Advanced Edition. 
Oferowanych jest także wiele progra¬ 
mów do edycji tekstów, na tle których 
wyróżnia się, pracujący w trybie graficz¬ 
nym, CHIWRITER. 


HELP FILE. 


HIT PG UP, 

PG DH TO SCR0LL ,flH¥ 0THER KEY 

T0 C0HTIHUE 

ł' 1 i 

i i 

-r i i 

Font $ 

I 1 i 

i i 

i 

4 

FI: Roman 

ABC abc 

123 

FZ: Symbol 

ił* v h* 

4 

F3: Italie 

ABC abc 

ror 

1 A. J 

F4: Bold 

ABC abc IZ3 

i 

F5: Golbie 

KM 


FG: Smali 

ABC abc 123 

4 

F7: Greek 

FAO y6« 


F8: Scnpt 

ĄBĆ ąbe 

i 

F9: Hath I 

V * < D 

= n 

F10:Hatb II 

1 y 1 

4 


Rys 1, Fragment pliku Help chi wyświetlany na ekranie komputera. 


Edytor ten ma trzy podstawo¬ 
we zalety. 

1 Na ekranie widzimy tekst w 
takiej formie w jakiej będzie na 
drukarce, tzn rożne alfabety, 
pochyłe, małe i pogrubione litery 
itd (rys 1 ) 

2 Bardzo łaiwo można zdefi¬ 
niować, bez żadnych przeróbek 
komputera i drukarki, własną 
czcionkę np polskie litery, 

3 Możliwe jest przedstawie¬ 
nie w tekście skomplikowanych, 
wielopoziomowych wzorów ma¬ 
tematycznych i struktur związ¬ 
ków chemicznych 
Dodatkową zaletą nowszych we¬ 
rsji CHIWRITERa jest łączenie 
grafiki z tekstem 

Czy tylko na IBM PC? 

O ile w miejscu pracy mamy 
najczęściej do dyspozycji IBM a, 
to wracając do dorr^ stajemy 
przed zupełnie innym sprzętem 
Nasze domowe Atari, Spectrum, 
czy Commodore niespecjalnie 
pozwalaja Kultywować nawyki 
wyniesione z pracy Diametral¬ 
nie inny system operacyjny, 
oprogramowanie, a często brak 
monitora, stacji dysków i drukar¬ 
ki są przyczyną naszych frustra¬ 
cji. 

Jeśli me stać nas na sprzęt 
klasy IBM PC lub Atari ST, to czy 
możemy myśleć o unifikacji o- 
programowania, korzystając z 
tańszego 8 bitowego kompute¬ 
ra 9 Chcę rozważyć ten problem 
na przykładzie programu CHI¬ 
WRITER. 

Jakie warunki musi spełnić 
sprzęt, aby można spróbować 
rozwiązać to zagadnienie 9 Po 
pierwsze nasz komputer domo¬ 
wy musi umożl wiac wymianę in¬ 
formacji z maszyną w pracy 
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Mozę się to odbywać przy po¬ 
mocy dyskietki lub złącza RS 
232C i ewentualnie modemu Po 
drugie powinniśmy mieć możli¬ 
wość wyświetlania na ekranie 
grafiki o rozdzielczości 640*200 
punktów (standart CGA na IBM 
PC). Wymagania te w łatwy spo¬ 
sób spełniają dostępne na na¬ 
szym rynku komputery standartu 
CP/M Amstrady PCW 8256/ 
/8512, CPC 6128 i Commodore 
128 D Nie oznacza to, ze właś¬ 
ciciele innych popularnych urzą 
dzen stoją na straconej pozycji, 
ale w ich przypadku, z powodu 
ograniczeń sprzętowych, zagad¬ 
nienie implementacji CHIWRI- 
TERa jest trudniejsze. 

Generatory znaków programu 
CHIWRITER 

Przejdźmy teraz do proble¬ 
mów programistycznych. CHI- 
WRI ER pracując w trybie grafi¬ 
cznym, korzysta z wielu włas¬ 
nych generatorów znaków, zaró¬ 
wno ekranowych, jak i drukarko¬ 
wych W przypadku ekranu ma 
tryca znaku ma rozmiary 10*8 
punktów i każdy znak pamiętany 
jest w kolejnych 10 bajtach (rys 
2a) Dla drukarki mamy dwa ro¬ 
dzaje matryc — tryby draft i 
NLQ Matryca trybu draft ma roz¬ 
miar 10*12 punktów i przecho¬ 
wywana jest w pamięci kompu¬ 
tera jako ciąg kolejnych 20 baj¬ 
tów (rys. 2b), Analogicznie w try¬ 
bie NLQ matryca ma rozmiary 
20*12 i wymaga 40 bajtów 

Kolejne znaki przechowywane 
są w piskach generatorów zna¬ 
ków W tabelce 1 podano listę 
typowych generatorów ekrano¬ 
wych programu CHIWRITER, Te 
same generatory dla drukarki 
posiadają rozszerzenia DFT (tryb 



K o ł u n n y 





12345678 




bajt 0 

00000000 

wiersz 1 



bajt 1 

0 i 1 1 1 1 1 0 

wiersz 2 



bajt 2 

01100110 

wiersz 3 



bajt 3 

01100110 

wiersz 4 



bajt 4 

01100110 

wiersz 5 



bajt 5 

0 1111110 

wiersz 6 



bajt 6 

01100110 

wiersz 7 



bajt 7 

01100110 

wiersz 8 



bajt 8 

01100110 

wiersz 9 



bajt 9 

00000000 

wiersz 10 




76543210 





BITY 




Rys, 2a, Matryca ekranowego (,SFT) generatora znaków 




programu CHIWRITER 





Kolus 

ny i 




12345678 

9 0 12 



bajt 0 

00000000 

0 0 0 0 x x x x 

wiersz 

i 

bajt 2 

00111111 

1 1 0 C x x x x 

wiersz 

2 

bajt 4 

0 0 1 1 0 0 0 0 

I 1 0 0 X X X X 

wiersz 

3 

bajt 6 

00110000 

1 1 C 0 x x x x 

wiersz 

4 

bajt 8 

0 0 1 10 0 0 0 

1 1 0 0 x x x x 

wiersz 

5 

bajt 10 

00111111 

1 1 0 0 x x x x 

wiersz 

6 

bajt 12 

00110000 

1 1 0 0 x x x x 

wiersz 

7 

bajt 14 

00110000 

1 1 0 0 x x x x 

wiersz 

8 

bajt 16 

0 0 1 10 0 0 0 

1 1 0 0 x x x x 

wiersz 

9 

bajt 18 

00000000 

0 0 0 0 x x x x 

wiersz 

10 


76543210 

76543210 




e i 

I Y 



Rys, 2b, 1 
1 

latryca drukarkowego (.DFT) generatora znaków 
jrogramu CHIWR Tttr 




0000 

10 

62 

6F 

6C 

64 

2E 

53 

46 

54 

00 

00 

00 

00 

00 

BA 

06 

bold.SFT 

I 

1 1 f # 1 1 # 

0010 

5E 

01 

00 

08 

0A 

00 

08 

00 

05 

00 

00 

00 

00 

00 

00 

00 

.V 

f 1 1 1 1 1 « ł 

1 1 1 ł 1 I » 

Rys, 

3a, 

Nagłówek pliku generatora znaków 

programu CHIWRITER 


0158 

00 

38 

38 

38 

38 

38 

00 

38 

00 

00 

00 

EE 

EE 

E£ 

00 

00 

88888,8, 

, ,rmn,, 

0168 

00 

00 

00 

00 

00 

6C 

FE 

FE 

6C 

FE 

FE 

6C 

00 

00 

00 

38 

, . ,1~"1 

"1...8 

0178 

7E 

F0 

7C 

1E 

FC 

38 

00 

00 

00 

£6 

EE 

1C 

38 

70 

EE 

CE 

"pi,18,,, 

fn 8pnN 

0188 

00 

00 

00 

3C 

76 

3C 

78 

FB 

EE 

36 

00 

00 

00 

70 

70 

E0 

,, ,<v<x(n 

;...pp' 

0198 

00 

00 

00 

00 

00 

00 

00 

1C 

38 

70 

70 

70 

38 

1C 

00 

00 

.8ppp8,,, 

01A8 

00 

70 

38 

1C 

1C 

1C 

38 

70 

00 

00 

00 

10 

FE 

7C 

7C 

FE 

,p8 ,,8p 

...u* 

01B8 

10 

00 

00 

00 

00 

00 

00 

38 

38 

FE 

38 

38 

00 

00 

00 

00 

.,88 

*88,,,, 

01C8 

00 

00 

00 

00 

30 

30 

60 

00 

00 

00 

00 

00 

FC 

FC 

00 

00 

,.,,00',, 

...u,, 

Rys, 

3b 

5aj ty | 

Pierwszych 

znaków 

generatora, 




















BOLD 

SFT 

60THIC 

SFT 

6REEK 

SFT 

ITALIC 

SFT 

MATM 

SFT 

MATNII 

SFT 

PLBOLO 

SFT 

PLITALIC SFT 

PLSMALL 

SFT 

POLISH 

SFT 

ROMAN 

SFT 

SCRIPT 

SFT 

SMALL 

SFT 

SPECIAL 

SFT 

SYMBOL 

SFT 

SYSTEM 

SFT 

TAB, 1, 

Lista plików 

ekranowych generatorów 
znaków programu CHIWRITER 


draft) i PFT (tryb NLQ) Organi¬ 
zacja plików generatorów przed¬ 
stawiona jest na rysunkach 3a i 
3b. W nagłówku zbioru znajduje 
się szereg istotnych parametrów 
generatora niektóre z nich zo¬ 
stały zebrane w tabelce 2. Naj¬ 
ważniejsza dla nas informacja 
zaczyna się od adresu 344, za 
wierającego pierwszy bajt matry¬ 
cy pierwszego znaku 
Jeśli dalej myślimy o progra¬ 
mie CHIWRITER na naszym 
komputerze, to wszystkie te ge¬ 
neratory, a jest ich dużo, musi¬ 
my przenieść na nasz sprzęt. 
Najprościej zrobić to przy pomo¬ 
cy stacji dysków 5 i 1/4 cala, jeśli 
nasz komputer umie czytac dys¬ 


kietki IBM PC Alternatywnym 
mniej wygodnym rozwiązaniem 
jest użycie złącza RS 232 C i 
oprogramowania komunikacyj¬ 
nego. Właścicielom komputerów 
CP/M’u istotnie pomoże pro¬ 
gram COMHEX, opisany w „Baj- 
tku’ 6/88. Bezpośrednie zasto¬ 
sowanie komend COPY i PIP nie 
jest możliwe, ponieważ transfe¬ 
rowane pliki są binarne tzn. wy¬ 
korzystują 8 bitów każdego sło¬ 
wa a transmisja jest 7-bitowa. 

Rysowanie znaku na ekranie 

Gdy uporamy się z przenie¬ 
sieniem generatorów, co może 


zając trochę czasu, stajemy 
przed kolejnym problemem. Mu¬ 
simy wprowadzić plik generatora 
do pamięci komputera i napisać 
program, który będzie umiał ry¬ 
sować znaki na ekranie wg zada¬ 
nych matryc. Ponieważ typowe 
matryce większości komputerów 
domowych mają rozmiary 8*8, 
me możemy podmienić genera¬ 
tora systemowego generatorem 
CHIWRITERA. Potrzebna jest 
procedura PLOT (X, Y) zapalają¬ 
ca na ekranie punkt o współrzę¬ 
dnych X, Y. Dla Amstrada CPC 
6128 pascalowa procedura 
PLOT znajduje się na listingu 3 
Wersję dla Commodore 128D 
można znalezc w numerach 


„Komputera 1 ’ z 1988 roku W 
przypadku Amstrada PCW, moż¬ 
na posłużyć się pakietem grafi¬ 
cznym opisanym w 7,8,9 i 12 
numerze „Bajtka’ z 1988 roku. 
Na listingu 3 przedstawiono tak¬ 
że, niezależną od komputera, 
procedurę DC która rysuje na 
ekranie znak c w punkcie x, y 

Co jeszcze? 

Zatrzymajmy się na chwilę w 
naszej ciężkiej pracy i zastanów¬ 
my się do czego doszliśmy i co 
nam jeszcze pozostało. Mamy 
przeniesione generatory znaków 
i umiemy rysować dowolne lite¬ 
ry, alfabety i czcionki na ekranie 
naszego komputera. Następne 
cele, w porządku rosnącym ze 
względu na stopień trudności, 
możemy sformułować następu¬ 
jąco 

1. Napisanie programu, który 
będzie wyświetlał zbiór przygo¬ 
towany przez CHIWRITERA na 
ekranie komputera. 

2. Napisanie programu, który 
wydrukuje taki zbiór na drukar¬ 
ce 

3. Napisanie właściwego edy¬ 
tora. 

Niestety z dwóch powodów — 
mało miejsca w „Bajtku ’ i niskie 
honoraria autorskie — ograniczę 
się tylko do opisania pierwszego 
problemu i krótkich szkiców dla 
dwóch następnych zagadnień. 

Interpretacja zbiorow 
CHIWRITERa 

Program CHIWRITER, ze 
względu na swe bogate możli¬ 
wości, zapamiętuje edytowany 
tekst w pewien specjalny spo¬ 
sób (rys. 4a). Do zmiany czcion¬ 
ki, do zaznaczenia miękkich 
spacji, rożnych odstępów mię¬ 
dzy wierszami i innych cech tek¬ 
stu służą sekwencje sterujące. 
Przykładowo zmiana generatora 
odbywa się przy pomocy ciągu 
dwóch znaków 7n\ gdzie n jest 
numerem generatora. Miękka 
spacja zaznaczana jest w zbio¬ 
rze przez 7.\ Ogólnie biorąc 
specjalne sekwencje sterujące 
są dwuznakowe i zaczynają się 
od znaku / , o kodzie ASCII rów¬ 
nym 92. Przyznaję, ze me udało 
mi s ę rozszyfrować znaczenia 
wszystkich sekwencji sterują¬ 
cych, ale te znalezione pozwala¬ 
ją na poprawną interpretację 
zbiorow HELP CHI i TUTO- 
RIAL.CHI, także przeniesionych 
z IBM PC 

Na listingu 1 w programie Chi- 
ToScreen znajduje się procedu¬ 
ra DisplayFile, która interpretuje 
zbiór przygotowany przy pomo¬ 


Bt03 łf BCll] - nazua pliku generatora 

BC163 - ilość znaków w generatorze 

BC173 - kod ASCII - 32 dla pierwszego znaku 

BC193 - ilość kolutn w znaku 

BC203 - ilość wierszy w znaku 

BC3443 - pierwszy bajt definiujący pierwszy znak 

TAB 2, Opis niektórych poi generatora znaków 
prograau CHIWRITER 


\3Hove the cursor to the next \4*\3. turn insert *ode off, add about\, 10 

\+ \05_6 

\+ \62 

\l-b \9+ \0r \lb -4ac 
U 

\31evels and copy this foraula; Vlx\,V,\, = V2_\3, When youV, are \! 

\- \61,2 
\- \12a 

\- 
\- 
\- 

\3done turn insert t&ode back on 1 You will fmd the \2_ \3m font 2, the \“ 
smali \62 \3m font 6, the V9+ \3in font 9 and the characters to »ake\, the 

Rys, 4a, Fragment pliku TUT0R1AL,CHI (ASCII), 


Morę the cursor to the next *, turo insert mde off cii about io 


lerets oni cofy this formtUl x - 


-1) i 7 b -4ac 


U 


% tfhen you ar# 


dcm, turo insert wodę buch on! You will find the - ut font 2 , the 
smU t io font i, the ł io font $ cod the chorocters to oake the 

Rys, 4b, Ten saa fragment interpretowany na ekranie Joyce'a 


cy CHIWRITERa. Korzysta ona z 
wcześniej opisanej procedury 
DC (x, y, ch), wyświetlającej na 
ekranie w punkcie x y znak ch 
Znajdująca się w programie pro¬ 
cedura NewLine steruje przejś¬ 
ciem do nowego wiersza tekstu. 
Bardzo ważną rolę odgrywa pro¬ 
cedura LoadSgen, ładująca do 
pamięci komputera zmodyfiko¬ 
wany, ekranowy generator zna¬ 
ków CHIWRITERa. Zmiana ge¬ 
neratora polegała na obcięciu 
pierwszych 344 bajtów w orygi¬ 
nalnym generatorze. Pozwoliło 
to na jego zmiejszeme do roz¬ 
miaru 1KB 

Amstrad PCW 8256/8512 

Program ChiToScreen przed¬ 
stawiono na listingu 1 w wersji 
na komputer Amstrad PCW 
8256. Procedura DC, odwołują¬ 
ca się do RSX a uzyskanego z 
asemblerowego programu DC. 
MAC, przedstawionego na listin¬ 
gu 2, pozwala na 3-krotne przyś¬ 
pieszenie wyświetlania zbioru, w 
stosunku do wersji posługującej 
się procedurą PLOT Przygoto¬ 
wanie programu DCH COM ze 
zbiorow DCH PAS (listing 1) 
i DC.MAC (listing 2) wymaga na¬ 
stępujących operacji: (patrz np. 
„Bajtek” 5/88 „Własne znaki na 
ekranie Joyce’a”) 

1. Kompilacja na dysk Turbo 
Pascalem, ze zmniejszonym ad¬ 
resem końcowym (ang END 
ADDRESS), zbioru DCH.PAS 

2 Przygotowanie RSX’a ze 
zbioru DC MAC: 

M80-DC MAC 

LINK DC [OP] 

REN DC.RSX=DC.PRL 

3 Połączenie programu z 
RSX’em 

GENCOM DCH.COM DC.RSX 

Amstrad CPC 6128 
i Commodore 128D 

W przypadku CPC 6128 sytu¬ 
acja jest prostsza, ponieważ me 
trzeba tworzyć RSX’a. Ze zbioru 
DCH PAS musimy wyrzucie pro¬ 
cedurę DC i wstawić w to miejs¬ 
ce procedury PLOT i DC znajdu¬ 
jące się na listingu 3 Dla Com¬ 
modore 128D należy zmienić 
procedurę PLOT. 

Otrzymany program DCH 
COM uruchomiłem na Amstra- 
dzie PCW 8256 Na rysunku 4b 
znajduje się fragment zbioru TU- 
TORIAL.CHI zinterpretowany i 
wyświetlony na ekranie Joyce a 
przy pomocy opisanego progra¬ 
mu 

Drukowanie zbiorow CHIWRI¬ 
TERa na drukarce wymaga pew¬ 
nej modyfikacji programu DCH 
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PAS Należy uwzględnić inny 
rozmiar matrycy znaku i napisać 
procedurę DC w ten sposob 
aby wysyłała znak na drukarkę, 
posługując się trybem graficz¬ 
nym. Przykład zastosowania try¬ 
bu graficznego drukarki przed¬ 
stawiono w „Bajtku” 1/88 (pro¬ 
gram Bitlmage) 

Napisanie kompletnego edy¬ 
tora jest największym proble¬ 
mem ale jest to już w zasadzie 
sprawa dobrego rzemiosła pro¬ 
gramistycznego, które może byc 
wsparte odpowiednią literaturą i 
przykładami. Firma Borland ofe¬ 
ruje między innymi pakiet proce¬ 
dur do Turbo Pascala, pozwala¬ 
jących na pisanie edytorów. Pe¬ 
wne informacje można znaleźć 
w innym produkcie tej firmy, ja¬ 
kim jest Toolbox do baz danych, 
którego wersja pod CP/M’em } 
jest również dostępna i pozwala 
tworzyć naprawdę bardzo dobre 
bazy danych w tym systemie 
operacyjnym. 

Po co to wszystko? 

Podając informacje o organi¬ 
zacji plików CHIWRITERa i jego 
generatorów chciałem pokazać, 
że możliwe jest napisanie takie- 
qo proaramu na komputer inny 
niż IBM PC 

Niestety tragiczny stan w dzie 
dżinie ochrony praw autorskich 
w Polsce jest przyczyną że tego 
me zrobię. Myślę, ze taka sytua¬ 
cja jest niezwykle stresująca dla 
wielu naszych programistów, 
którzy praktycznie zrezygnowali 
z tego rodzaju twórczości Moż¬ 
na pisać specjalistyczne progra¬ 
my na zamówienie bogatych 
sponsorow, ale trudno napisać 
program powszechnego użytku 
zwłaszcza na popularny sprzęt 
domowy gdy wiadomo, ze 
sprzedamy jeden egzemplarz, 
bo handlem następnymi zajmą 
się złodzieje z giełdy. 

Brak jakichkolwiek uregulo¬ 
wań prawnych w tej dziedzinie, 
brak hamulców moralnych przed 
kradzieżą czyjegoś dorobku in¬ 
telektualnego owocuje sytuacją, 
w której tracimy wszyscy 

Jonasz Mayer 


{ Wyświetlanie na ekranie Joyce‘a ; 

zbiorow prograiu CHIWRITER 


( 

{ 

( 

{ 

{ 

{ 

( Uwagi; 
£ 


Plik OCH.PAS 
wersja 1,0 
(C) m Lipiec 1989 


£ 1, program korzysta ze z«odyfikowanych generatorów znakowi 
£ program CHiwRITER. przeniesionych z kowputęra IBM PCJ 
£ 2, Celem przyspieszenia działanie program odwołuje sie ) 
{ do R$X nuaer 75. który wyświetla znaki,na ekranie wg ) 
podanego generatora znaków, R$X generowany ze zbioru ) 
DC.HAC musi byc zainstalowany przed wykonaniei 
prooraau Pascalowego albo dołączony do niego przy 
poaocy polecenia 6fcNCGM DCH.CGH OC.R 


{tnmnmmntnmnmtnmntmtmmtmmmtt) 


i rozaiary ekranu Joyce'a ) 

£ RaxRow+i - liczba wierszy w matrycy znaku) 
£ HaxCol+l - liczba kolumn w aatrycy znaku ) 


const 

xStrHax = 719; 
yScrHax = 2S5; 

HaxRow = 9; 

HaxCol s 7; 

No6en =10; £ liczba generatorów znaków ) 

SenSize =180, £ ilosc znaków w generatorze ) 

ext = '.SM'; £ doayslne rozszerzenie zbioru ) 

6FNaae ; array £l,,NoGen) of StrmgC = 

{'ROMAN*, 'SYHBGL 1 , 'ITALIO , 'BGLD ‘60THIC* 

1 SHAU. , ’6REEK', 'POUSH', 'HATHI ,'HATHll'i; 

half : boolean 5 false; 


typ® 

schar 

sgen 

Str28 


= array ( 0 ,flaxRow,) of byte; £ znak 3 
= array ( 6.,6enSize f ) of schar; t gen, znaków ) 
= strmg £203; 


var 

f ; text: 
name ; slr20; 

6enBuffer ; array Cl,,NoGenJ of sgen- 


clont 


integer; 

integer; 

byte; 


en, 

{ Poz, drukowania 3 
( akt odstęp m/wierszami ) 
{ Akt, no, fontu 3 


£ Procedura ładuje wskazany generator znaków ze zbioru 
var 

gfiie ; file; 
begm 

assion igfile fiłename+ext) (łSI-<> 
resa? (gfilsi; 
if IOresult<>0 

then begm . . ,. TnD1 , 

writelni'Brak generatora .filename, . STOP ); 

Halt; 

end 

else begm 

BlockRead (gfile.genBuffertno],#): 

Wr i tein (f i Iename Mxt,‘ ‘ font ,no;l); 
end; 

elose(gfile); 
end, (t load pgen *) 

orocedure Newnne: 

£tm***'**m*tttm*mmmttmtmt*m*mmm*:*m) 

£ Procedura powoduje przejście do nowej linii, 3 

{********** t*tmmt*mmm*mt*m**t mmmmm*) 
var ch ; char; 
begm 

x ;= 0; y := y + dv; 
if hali 

then begm y ;= y-dy+5; ha 1 1 ;= false; 
end; 

if y>yScrHax-18 
then begm 

Kotoxy (1.32.); 

ClrEol: 

write) nacisnij dowolny klawisz '); 
repeat until keypressed read tkbd,ch); 
if ch='x' 
then begm 

wri te (#27#48#27'e'); 

Halt; 
end; 
clrscr, 
end: 

end; £ of Newlme 3 

procedurę OC (var x y integer. c char); 

£*mmm**mmhmm**mmmmmm*t*.mmm} 
( Procedura drukuje znak na ekranie wg generatora o 3 
£ numerze cfont, korzysta z RSX’a ! 3 

mmmmmm* *********** m*mmmmm*mmm) 

var 

d ; record 

xc , integer, 

vc ; byte; 

adrT integer; 
end, 

begm 
o, :<c = x; 
d yc ;= y; 

d.adrT = addr i6en8uffertcfontHordU>-42j); 
bdos (75,addrid)); 
x ;= x + fiaxCol + 1: 
if x >xScrf1ax-MaxCoł 
then Newline; 
end; £ of OC 3 

procedurę BreakPage; 

{mmmmmmTmmmmmmmmmmmmm*) 

£ Procedura zaznacza koniec strony w zbiorze 3 

{mm ********* mmnm*m mm um m m m mim*) 


var i ; integer; 
begm 

for i ;= 0 to 78 do OCCx,y,'- 1 ); NewLine; 

end; £ Break Page 3 

procedurę Login; 

ummmm*im*m*mm*m*mm*mmm*m*m) 

£ Procedura wypisuje nagłówek programu i czyta kolejne 3 
£ generatory znaków, 3 

ufimmmmmmtmmmmmmmmmmmm} 
var i ; byte; 
begm 
ClrScr; 

writeln CUt CHltfRlTER PCW 8256 DEilGm 1 ); 
wri tein 

x ;= 500; y = 5; cfont ;= 1; 
for i ;= I to 10 
do begm 

LoadSgenu.gfnameCij); 

OC (x,y ( chr*1+48) ); 
end; 

, writeln; 
end; £ Login 3 

procedurę GetFiieName. 

{*:m**.m*m**mmm*m*m*mmimm*m**mm} 

£ Procedura pobiera nazwę zbioru i otwiera go, Jeśli nie 3 
£ ma zbioru na dysku, program jest przerywany, Nie podanie 3 
£ żadnej nazwy kończy program, } 

itmttmmmmmmmmtmmmmmmnmtm) 

begm 

wr i te (*nazwa pliku 1 '); readln marne); 
if name = " 
then begm 

ClrScr; C pusta nazwa kończy program 3 
Halt; 
end: 

if pos ( ,‘,name)=0 
then name := name + ’, CHI * ; 
assign (f,name); £$!-} 

reset(f); ($1+3 

if IOresultO0 
then begm 

writeln ('Brak zbioru !') ; Halt; 
end; 

end; ( GetFileName 3 


procedurę OisplayFiie; 

imtmttnnunmimmmmmmmtnmmmtm) 

£ Czyta zbiór Chiwntera z dysku i wyświetla go na ekranie 3 
£ interpretując znaki sterujące 3 

mtmmnmmmmnmtmutmmumtmmnm) 

var 

ch ; char; 

begm 

wri te (#27048027 f *) ; { status off, cursor off 3 

CłrScr; 

x ;= 0; y := 5; dy ;= 10; cfont ;= 1 ; 

while not eof(f) 
do begm 


while not eoln(f) 
do begm 

read(f.eh); 
if ch= l \‘ 
then begm 

read(f ch); 


case 

ch 


£ zmiana 3 of 

*0' ; 

cfont := 10; 

£ fontu 3 T 

'9' ; 

cfont ;= ord(ch)-48; 

£ dod, wiersz górny 3 

• + • 

half := true; 

£ dod wiersz dolny ) 

i _ i ; 

y ;= y - dy + 5; 

£ zmiana odstępu 3 

• ł • . 

dy := 10; 

£ miedzy wierszami 3 

i ń i ; 

dy ;= 15; 


; 

dy ;= 20; 

£ soft space 3 

i ł , 

x ;= x + HaxCol+l; 

£ soft CR 3 

i i I 

9 » 

i 

£ nieznane ) 

: 

, 

£ znak i ) 

ł ł l ł , 

i 

(. sterujące 3 

*/' ! 

i 

£ znak końca zbioru ) 

i _ i , 


else begin 



gotoxy (1,32); ClrEol: 

write £ Nieznany znak ster : \ 


end; 


end; 


£ of case ) 


end 

else begm 

if th=#$0c then BreakPage: 
if ch=' ' then x := x + flaxrol + 1; 
if (ch)' ') and (ch<#326) 
then OC (xj,ch); 
end; 

end; £ of eoln 3 


readln(f); 

Newline; 

end; { of eof 1 


qotoxy (1.32); 

ClrEol: 

wnte ('Koniec pliku, Nacisnij dowolny klawisz,'); 
repeat until keypressed; 
read (kbd,ch); 

ClrScr; 

write (127149027 s e‘); £ status on cursor on ) 
end; £ Display File ) 


begm l HAIK 3 
Login: 
repeat 

GetFileName; 

if nameO" then OisplayFiie, 
until name 5 "; 
end, 


mmmmntmmnmtmmmnnmmmmmmt) 

Listing l, Plik OCH.PAS 
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ttttxttttxtttxt%tttttxttxxtuttxutxtxttttttxtt 


Plik DC,HAC 
ver, 1,0 

(0 Jfl Apnl 1988 


parametry: 
rejestr c = 75 

rejestr de - adres bloku parametrów 
przekazywanych z programu użytkownika; 
nazwa znaczenie 
x współ, x znaku (word) 

y współ, y znaku (bajt) 

adrT adres matrycy znaku w gen, (word)* 

nuttttiuuntnnnmmttninmnutnn 

, z80 


cseg 
ds 6 
jp start 

next;do 0C3H.0,0 } 0 ? 0,0FFh 0 
db ‘DrawĆfar'.0.0.8 

• xxtttxtutuxttxx%mtmtxxxt%tttttxttt%tx% 

start; 


ld a.e 
cp 7Ś 
jp nz,next ; 

begin; ; pobierz parametry 

ex de.hi 
id e.(hl) 
inc hl 

Id d (hl) ; de ;= x 
inc hl 



L2; 


Id c,(hl) 
ld b,0 
push bc 
pop iy 
inc hl 
ld b,(hl) 
inc HL 
Id h,(hl) 
ld i.b 


Id b,10 
push bc 
push de 
Id a,(hl) 
id b ; 8 
rica 

jr nc,NCY 
push bc 
push af 
push de 
push hi 
push iy 


iy ;= y 



adrTab 


; 10 wierszy 

; zapamiętaj licznik wierszy 


• a = bajt znaku z matrycy 
; 8 bitów (kolumn) 

; carry ;= bit (kolumna) 


; zapamiętaj licznik kolumn 
; zapamiętaj bajt matrycy 
; zapamiętaj x 
; zabamiętaj adres matrycy 


pop hł 
ld bc.PLOT 
cali 0FC5AH 
dw 00ESH 
pop hl 
pop de 
poo af 
pop bc 
NCY: mc de 
djnz C2 
inc hl 
inc iy 
pop de 
pop bc 
djnz U 
ret 

FLOT; 

add hl f hl 


ld 

bc 0b60Oh 

add 

hl Dc 

Id 

c. (hl) 

inc 

hl 

ld 

b, (hl) 

ld 

a.c 

and 

0<8h 

Id 

i,a 

ld 

h b 

add 

hl # hl 

add 

hl.de 

&.1 

ld 

and 

0f§H 

ld 

1,1 

ld 

a c 

and 

7 

or 

1 

Id 

i,a 

ld 

a,e 

and 

7 

inc 

a 

ld 

b, a 

xor 

SC f 

LXXP;rra 

a 

djnz 

LXXP 

or 

(hl) 

id 

ret 

(hl),* 


; %%tuuuutunuuuu%u%%u%%%iuuuu 

end 

i 

; Listing 2, Plik DC.HAl 

t 


* 

* wołaj proc, plot 
X . 

odtworz adres matrycy 
odtworz x 

odtworz bajt matrycy 
odtwórz licznik kolumn 
x ;= x+1 (poz, plot 1 a) 
pętla do następnej kolumny 
następny wiersz matrycy 
y y+t (poz, plot ł a) 

odtwórz licznik wierszy 
pętla do następnego wiersza 


(de=x l hl=y) 


orocedure PLQ T (x.y ; integer); 

( procedura FLOT w wersji dla CPC 6128 1 

[xxxxxxxxxxxxxnxxxx%tn%mxxxxxnnnxx%xxt) 

begm 

InLine ($2A/x/tEB/$2A/y/$CD/$5A/$FC/$EA/$BB); 
end; U PLOT %) 


procedurę OC (var x.y ; integer; c ; char); 
l%xxxxxx%%nxxxxt%xkxxxxxxxxnxnxxxxxxxxxin) 
i procedura drukującą w trybie graficznym ) 
{ znak na ekranie, Korzysta z procedury PlOT,) 
ixxxxxxxxxx%txxxt%xxxxxntnxxnnxxxxxx%ntt) 




= array U),,MaxRow ? 0, t haxCol) of byle; 


i,j, k ; integer; 
ft ; Hatrix; 


procedurę S to fi <var II ; matrix; var s : schar); 

{%%x%%%%%x%%u%%u%%nt%%%x:nnxmu%xtnx%%) 

{ Zamienia flaxRow+l bajtów znaku na matryce ) 

{ znaku o rozmiarach (HaxRow+l)l(MaxCol+i), ) 
{xx%nxxxu%nxmx%xnxmx%xnxxxnunnxt) 
var i,j f x.mask ; byte; 
begm 

for i := 8 to MaxRow 
do begin 

x ;= s(,i,); mask ;= $88; 
for j ;= 0 to HaxCot 
do begin 

if (x and »ask)<>0 
then Mt.iJ.) := 1 
else mi.i.j.) ;= 0; 
mask ;= mask shr 1; U div 2 t) 
end; 
end; 

end; (I ot S to fi I) 
begm ( OC ) 

S.toJI (H 6enBufferCord(c)’321); 
for i ;= 0 to MaxRow 
do begm 

k := KaxRow - i; 
for j ;= 8 to HaxCol 
do if HCi,jl<>0 
then 

płot (x+j,y+k,l); ( right ) 
end; 

x ;= x + 8; 
end; { of OC ) 


Listing J Procedura OC w wersji korzystającej 
z procedury PLOT (x,y), 



Przerażający wrzask przebiegi 
przez zamkowe komnaty. To smok 
skaleczony złamaną szczoteczką do 
zębów zawył głośno Następnym jego 
zajęciem miało być szczotkowanie 
grzywy, lecz stało się to niemożliwe z 
powodu zagubienia grzebienia (gra- 
bi). Rozczochrany smok udał się do 
toalety. Tak również czekała go nie¬ 
spodzianka: pięknie wyrysowany gra¬ 
fik najpierw instruował, jak należy 
skorzystać z papieru toaletowego, 
lecz kończył się stwierdzeniem, że pa¬ 
pieru tego brak. 

Smok, który miał w zamiarze ożenek, zapłakał rzewnymi 
łzami 

— Jak mam się ożenić z Księżniczkę Ośmiornicą — 
chlipnął smoczek — gdy me posiadam nawet złamanego 
grzebienia, ani innych przedmiotów codziennego użytku. 
Księżniczka będzie bardzo wymagająca, a jej posag 
niewielki 

Czy nasze smoki płaczą podobnie? 


Jeśli me posiadacie programów użytkowych na stację 
dysków TIMEX, to wasz smok (stacja) właśnie tak płacze 

Co może osuszyć łzy smoka? Podaję niżej krótkie opisy 
programów dostępnych na giełdzie oraz tych, którymi 
dysponuje redakcja 

MEGA PHANTOM — profesjonalnie napisany program 
służący do transferu programów z dyskietki na taśmę. 
Program ten jest ewenementem na rynku 
oprogramowania, ponieważ oprocz tego, że jest bardzo 
dobrze opracowany, zawiera nawet winietę autorską 
Posiadaczy interfejsu AY zaciekawią na pewno wspaniałe 
efekty dźwiękowe! 

Panom Langerów i Burczynskiemu należą się brawa za 
ten produkt. 

ZEBRA COPY — również profesjonalny program o 
działaniu przeciwnym do poprzedniego. Umożliwia on 
przenoszenie programów z taśmy na dyskietkę Wiele 
opcji; automatyczne poprawianie loaderow do współpracy 
z TOS-em, turbo taśmowe tp znacznie ułatwiają pracę 

Autorem Zebry jest tajemniczy Mr KATO, autor wielu 
programów kopiujących, np. Turbo Compress Copy 

DEER COPY — program kopiujący dla pojedynczego 
systemu dyskowego. Wygodny w obsłudze, z 
wykrywalnością błędów oraz wygodną selekcją plików do 
skopiowania Jego poważną zaletą jest ilość wolnej 
pamięci pozwalająca na skopiowanie pliku o długości do 
39730 bajtów. 


TWOCOPY — tym razem program przenoszący pliki 
między dwoma napędami (z A na B lub odwrotnie). 
Wykonany estetycznie (okienka), zawierający wiele 
komunikatów informujących o stanie systemu jest 
idealnym programem dla posiadaczy stacji 
dwukieszemowych Program przesyła pliki bezpośrednio 
między napędami, me zajmując RAM u komputera. 

Autorem dwóch ostatnich programów |estem ja i są one 
dostępne w redakcji „Bajtka 

Wracając do ożenku smoka; do systemu TOS można 
podłączyć napęd 5.25 cala czterdziesto- lub 
osiemdziesięciosciezkowy Najlepiej jest powierzyć to 
doświadczonemu elektronikowi który dokona w razie 
potrzeby odpowiednich przeróbek Nie są one w ogolę 
potrzebne w przypadku napędu TEAC FD 55B-01-U 
wystarczą kabelki wewnątrz obudowy stacji 

Gdy smok ożeni się z Ośmiornicą (80 ścieżek) 
system TOS pozwala na uzyskanie 620 KB na stronie 
dystetki HD (high density), lecz do normalnej składni 
komendy formatującej należy dodać literkę d (double) 
na końcu. 

Smoku, ożeń się żony ułatwiają życie 1 

Maciej Pietraś 

PS Proszę Czytelników o listy, zapytań i 
dotyczące eksploatacji systemu TOS i sta i 
TIMEX 
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Winnie-the-Pooh, znany w Polsce jako Kubuś 
Puchatek jest bohaterem łubianych książeczek 
„Kubuś Puchatek” i „Chatka Puchatka”. Jeśli 
czytaliście je, nie będziecie mieli trudności z 
grą. 

Znajdziecie w niej ulubione postacie: Krzysia 
(Christopher Robin), Puchatka, Prosiaczka (Pi- 
glet), Kłapouchego (Eyeore), Królika (Rabbit), 
Kangurzycę (Kanga) z Maleństwem (Roo) oraz 
rozbrykanego Tygrysa (Tiger). 

Zrywający się co chwila wiatr rozrzuca po Le- 
sie rożne przedmioty. Czy pamiętacie, jak strącił 
z drzewa dom Sowy? Byli wtedy u niej na pod¬ 
wieczorku Puchatek z Prosiaczkiem. To ten sam 
wiatr. 

Porozrzucane przedmioty należy oddać ich 
właścicielom. Znając mieszkańców Lasu i ich 
obyczaje zrobicie to bez trudu. Wiecie, że Kłapo- 
uchy lubi oset (thistle), Puchatkowi bardzo po¬ 
trzebny był balon (baloon), gdy wybierał się po 
miód, zaś przed lustrem (glass) co rano robi gi¬ 
mnastykę. 

Po Lesie poruszacie się wybierając kierunek 
geograficzny. Gdy znajdziecie jakiś przedmiot, 
możecie podnieść go, ale tylko jeśli macie wolne 
ręce. W przeciwnym wypadku można trzymaną 
rzecz położyć, a podnieść znalezioną. Dzięki 
mapie możliwe będzie dotarcie do pozostawio¬ 
nych przedmiotów. Może również zerwać się 
wiatr i porozrzucać przedmioty, które przyjmą 
inne położenie. 

Inne niespodzianki to Bardzo Rozbrykany Ty¬ 
grysek, który przebiegając przez Las może wy¬ 
trącić trzymany przedmiot z rąk. Gęsta mgła bar¬ 
dzo utrudnia poruszanie, ale od czego mapa! 

Gra nie ma ograniczenia czasowego, dlatego 
warto pobyć dłużej w niektórych miejscach. Mo¬ 
żna śpiewać piosenki na Muzycznej Polanie lub 
szukać skarbów pod kamieniami. Można pojsc 
na spacer w dół rzeki lub wspinać się po drze¬ 
wach. Można tropie Łesice i Łysice (Woozle, Wi- 
zzle) lub zwiedzie domy przyjaciół. 

Możliwości jest niezwykle dużo. 

Jeśli oddacie już wszystkie przedmioty właś¬ 
cicielom i chcecie skonczyc grę, idźcie na pół¬ 
noc. Jest tam miejsce na piknik i czeka tam nie¬ 
spodzianka! Gry nie trzeba kończyć po gratulac¬ 
jach, chodząc dalej po lesie znajdziecie następ¬ 
ne przedmioty. 

Polskie nazwy w opisie gry zaczerpnięte są z 
książek w przekładzie pani Ireny Tuwim. 

Firma: Sierra On-Line 
Komputer: Atari ST, Commodore 64 

Ewa Zientara 
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Kopertę nadesłał Daniel Pastuszko z Warszawy 



Nowe pomysły, super strzelaniny, magaiabiryn- 
tówki Zalew nowości Producenci strzelają grami 
jak z karabinu My gramy jak opętani W co gramy w 
tym miesiącu? 

Batman wg nowego filmu (juz pewnie nie tak no¬ 
wego) Red Heat — drugi pomysł z ekranu (Arnie w 
roli głównej). AFT, czyli komputerowy podręcznik 
sztuki pilotażu Chucka Yeagera SkateBall — nowa 
dyscyplina: łyżwy + kaski + piłka + bramki + 
przeszkody Reszta g er znana a jeśli me, to poz 
namy je wkrótce, 

Tym razem tylko 1025 propozycji na 94 tytuły 
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Gra ta przenosi nas na mroczne ulice No¬ 
wego Jorku, w początek tego stulecia Miasto roi 
się od rożnych podejrzanych typów, którzy chcą 
zarobić szybko i łatwo Tutaj me istnieją takie sło¬ 
wa jak uczciwość i wierność. Liczy się spryt, 
bezwzględność, a przede wszystkim pieniądze 
Uruchamiając tę grę wcielasz się w postać taje¬ 
mniczego bilardzisty, o krótkim imieniu Mugsy. 
Posiadasz tylko 50 GRAND ow czyli 5000 dola¬ 
rów oraz listę swoich wspólników Interes polega 
na szmugiowamu beczek z narkotykami tajnymi 
kanałami do Kanady 

Najpierw musisz zatrudnić tragarzy Jeden z 
Twoich wspólników proponuje Ci kilku — najle¬ 
piej wybrać jednego, ale pewnego. Często zda¬ 
rzają się zwykli złodzieje, przez których tracisz 
mnostwo pieniędzy Zwolnienie oszusta zwykle 
wiąże się z dużym ryzykiem Po wyrzuceniu grozi 
Ci on, ze powroci z „przyjaciółmi Często groź¬ 
ba ta zostaje spełniona i na ekranie ukazuje się 
śmietnik oraz miły napis „GAMĘ OVER 
Po tej trudnej decyzji, następna Należy zaku¬ 
pić odpowiednią ilosc beczek, w których będziesz 
szmuglował narkotyki Teoretycznie znajdują się 
w nich solone ryby, płacisz więc najwyżej 1—2 
GRAND-y. Musisz zostawić sobie około 20 
GRAND ów na wypłaty i łapówki. 

Gdy posiadasz już baryłki, należy jeszcze 
„przekonać 5 do operacji kilka osob Najpierw po¬ 


licję stanową której zapłać 10 GRAND ów. Po¬ 
tem dla posterunków 5 i dla tragarzy sumę, jakiej 
zażądają Pozostałe kilkaset dolarów zostaw na 
czarną godzinę 

W momencie dotarcia na przystań me kończą 
się Twoje kłopoty, Czasami napadają Cię rabusie, 
co kończy się gorącą lufą pistoletu i zimnymi gło¬ 
wami nieboszczyków Niebezpieczni są rowmez 
kontrahenci kupujący beczki — często oszukują, 
rzadziej uczciwie załatwiają interes Jeżeli masz 
szczęście i wszystko pójdzie po Twojej myśli — 
zarobisz na następną transakcję Jeżeli nie, napis 
, WE RE BROKEN” i w dok kotow śmietnikowych 
zakończy grę 

Mugsy, który jest urodzonym abstynentem, pija 
tylko sok pomarańczowy Dzięki temu me obudził 
się jeszcze z nożem w plecach i kulą w głowie 
Czasami jednak ma on sen, przypominający mu 
młode lata, gdy był zawodowym bilardzistą Wy¬ 
grał wtedy dużą sumę od nieznanych ludzi, lecz 
ci pobili go i ograbili. Od tego czasu nasz sympa¬ 
tyczny bohater przestrzega zasady „ufaj każde¬ 
mu lecz trzymaj go na muszce Jeżeli Ty gra¬ 
czu, będziesz się tego trzymał — zwyciężysz me 
tylko na komputerze ale i w rzeczywistości. Po¬ 
wodzenia 1 

Komputer: ZX Spectrum 48, Commodore 64 

Lukę 




Adam Janczak, lat 12. 

VI klasa Szk. Podst. nr 300 w Warszawie 
komputer: Toshiba 
ulubiona gra: Fly, Szachy 
hobby: tenis, narty, język niemiecki 
i angielski 



J 


Małgosia Kalisz, lat 11. 

V klasa Szk. Podst. nr 32 we Wrocławiu 
komputer: Zx Spectrum 
ulubiona gra: Dynamite Dan 
hobby: muzyka 
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Nikt, oprócz niektórych oficerów wojsko¬ 
wych me wiedział, po co zbudowano tę bazę. Po¬ 
łożona z dala od wszelkich miast, otoczona druta¬ 
mi pod napięciem, zaminowana na całym obwo¬ 
dzie, doskonale chroniła się od nieproszonych 
gości Wszystkie próby zmierzające do odkrycia 
sekretu kończyły się z reguły na polach mino¬ 
wych lub w głębokich dołach obozowych 

W rzeczywistości ośrodek ten był miejscem 
szkolenia komandosów oraz szpiegów politycz¬ 
nych. Uczniowie mieli w przyszłości działać na 
głębokich zapleczach przeciwnika, niszcząc ści¬ 
śle określone cele wojskowe. Kandydaci byli 
szkoleni w zakresie walki wręcz, strzelania, pod¬ 
kładania ładunków itp. Każdy z nich mógł samo¬ 
dzielnie wykonać najtrudniejsze zadan e w bar¬ 
dzo krótkim czasie i cało powrocie do macierzy¬ 
stej bazy 

Wyposażenie takiego sabotazysty składało się 
zwykle z karabinu maszynowego, pistoletu półau¬ 
tomatycznego oraz granatów ręcznych Posiadał 
także ładunki wybuchowe, ustawiane na krótkie 
czasy, komplet noży i miotacz ognia Ponieważ 
na tyły przeciwnika dostawał się zwykle skacząc 
na spadochronie, więc większość brom i amunicji 
zrzucano na osobnych spadochronach Powrót z 
akcji zawsze następował helikopterem, który o 
ściśle określonej godzinie czekał w oznaczonym 
wcześniej miejscu 

Często przeciwnik był informowany o przylocie 
„gości i odpowiednio się do tego przygotowy¬ 
wał. W rowach czaili ssę strzelcy wyborowi, bun¬ 


kry prowadziły ciągły ogień Pola minowe i zapory 
z drutów kolczastych często przegradzały drogę. 
Gęsto padały rzucane bomby i granaty 

Mimo to mgdy żaden komandos me wycofał się 
przed wrogiem, wręcz przeciwnie — nawet ata¬ 
kowali Ich strzały skutecznie ostudzały przeciw¬ 
ników, a rzucane granaty na długo oczyszczały 
rejon 

A może Ty chciałbyś wcielic się w postać jed¬ 
nego z takich komandosów? Zapewniam Cię, ze 
nowa gra firmy Micro Prose „Airborne Ranger” 
dostarcza dużo więcej przyjemności mz podobne 
do mej na pierwszy rzut oka strzelaniny Każdy 
oddany strzał, rzucony granat, podłożona bomba, 
pozwala pozbyć się nadmiernej ilości zbędnej 
energii, czasem nawet rozsadzającej Cię Gdy 
zobaczysz padającego przec wmka lub szczątki 
wysadzonego bunkra, będziesz szczęśliwszy niż 
po połamaniu domowego fotela 

Przemieniając się w odważnego sabotazystę, 
mozesz wybrać jedną z kilkunastu m sji Każda z 
nich toczy się na rożnych terenach, inni są tez 
przeciwnicy. Masz możliwość mszczenia rada¬ 
rów, domów, porywania oficerów, podkładania 
bomb w samolotach itp Zakończenie jednej misji 
procentuje zawsze awansem na wyzsze stanowi¬ 
sko Wprawdzie nikt me został jeszcze generałem 
i podobno dla szczęśliwca, który to osiągnie cze¬ 
ka nagroda Myślę, ze warto spróbować szczęś¬ 
cia 

Firma: Micro Prose 

Komputer: ZX Spectrum 48, Commodore 64 

ibm pc Lukę 


Nowości 

Co nowego planują producenci gier? Czym 
przywitają początek nadchodzącego roku? 
Oto pigułka gier, które pojawią się na angiels¬ 
kim (a więc wkrótce i na naszym) rynku do 1 
stycznia 1990 roku: 

— MYTH firmy System 3 — doskonała grafi¬ 
czna oprawa, cztery doładowywane !eve- 
le, wędrówka przez świat żywcem z mito 
logu greckiej Odbierająca dech muzyka. 

— VENDETTA również firmy System 3 — 
połączenie Commando, Last Ninja, Road- 
blasters i Cobra Stallone Niezła grafika 
3D, lecz mało kolorowa. 

— GHOSTBUSTERS I! firmy Foursfield — 
fabuła oparta na filmie pod tym samym ty¬ 
tułem. To juz trzecia gra z serii „Ghostbu¬ 
sters”, jeszcze bardziej urozmaicona, mz 
„The Real Ghostbusters” 


— GHOULSN GHOSTS firmy US GOLD — 
nawiązanie do super-hitu „Ghosts ł N Go- 
blms” sprzed trzech lat. Znów porwana 
księżniczka, waleczny rycerz i hordy po¬ 
tworów. Efekty dźwiękowe 128. 

— INTERNATIONAL DRUG BUST — firmy 
Players — prawie „Operation Wolf”, lecz 
o mniej urozmaiconej grafice i nieco 
mniejszej liczbie doładowywanych leveli. 
Fabuła również inna, ale cel ten sam: ZA¬ 
BIJ! 

— GAŁAXYFORCE firmy Activision — zna¬ 
na z innych komputerów tym razem prze¬ 
niesiona na Spectrum przez Keitha Ber- 
khilla. Oślepiająca grafika standardu Sa- 
vage i R-‘ ype. Akcja mało skomplikowa¬ 
na, ale dynamiczna i rozluźniająca. 

Niestety, zabrakło miejsca na fotografie. 

Następnym razem na pewno się zmieszczą. 

Gen 



Co trzeba zrobić w grze FORCE SEVEN po stra¬ 
ceniu amunicji i o co chodzi w grach THANA- 
TOS, EIDOLON, RAID 2000 w wersji na Com¬ 
modore 64? 

Tomek Fijakowski, ul. Fornalskiej 4 m 10 26 
600 Radom 

Od wielu miesięcy szukam gry Tetris na Timexa 
Czy wersja taka istnieje? 

Artur Baturo, Marcinowice 31 66-600 Krosno 
Odrz. 

Proszę o opisy gier: REVOLUTION, SPITFIRE 
40 Jak sterować w LAST NINJA II. W zamian 
oferuję opisy do: COMMANDO, SABOTEUR, 
URBAN UPSTART 

Paweł Polesiak, Wyszogrodzka 3 m 34 03- 
337 Warszawa 

Bardzo proszę o opisy do gier: New York City, 
Nexuss, Mankala Jak uruchomić grę Alley Cat? 
W zamian opisy do Panama Joe, JetSet Widy 
Mam Atari 65 XE 

Marta Moraczewska, Jaracza 55a m 33 Łodz 

Bardzo proszę o pomoc, poszukuję opisu i 
mapy do gier PLATOON oraz MIGPITY MAGUS 
na Timexa. 

Michał Bartoszak, ul. Ogrody 11/6 85-870 
Bydgoszcz 

Poszukuję opisow do gier INFILTRATOR 
FEUD, BASIL i MASTERS OF LAM PS na Atari 
65 XE. Nie wiem także jak przejść trzecie je¬ 
ziorko w grze TIRES. 

Ewa Wojtyna, Oświęcimska 85/22 41-707 
Ruda Śl. 7 

Mam Atari 65 XE. Poszukuję gier PLATOON, 
HACKER, THE TRAIN, COMMANDO oraz opisu 
do RAID OVER MOSCOW. 

Maciej Dubelewski, Godebskiego 5/16a 81- 
134 Gdynia 

Mam 13 lat i dysponuję komputerem Atari 65 
XE Pilnie poszukuję gier ROAD RACE, BAR- 
BARIAN oraz PLATOON. W zamian oferuję opi¬ 
sy do HACKER, GHOST CHASER, STAROUA- 
KE wraz z grami. 

Krystian Dobkowski, Szekspira 2/388 01-913 
Warszawa 

Szukam gier FIST II, SILENT SERVICE, WIN¬ 
TER GAMES, LAST NINJA, SPY VS SPY, ZOR¬ 
RO. Posiadam Spectrum 48 

Radosław Rusek, Gołębia 27/1 85-309 Byd¬ 
goszcz 

Posiadam mikrokomputer Amiga 500 Proponu¬ 
ję kontakt w celu wymiany doświadczeń i pro¬ 
gramów 

Piotr Pacer, Sucharskiego 21b/4 81-157 
Gdynia 

Jestem posiadaczką Atari 65 XE. Pilnie poszu¬ 
kuję następujących gier- Futbol I i II, Bye Maja, 
Mouse Trap W zamian ofiaruję inne gry 

Ewa Oieksial, ul. Kniewskiego 2/11 

42-500 Będzin 

Pilnie szukam asemblera GENS3 i monitora 
MONS3 na Spectrum. W zamian oferuję kompi¬ 
latory języków: C i Pascal HP4TM16 lub gry 
Barbarian, Mikie i Renegade 

Mariusz Bystrzejewsk\ul, Westerplatte 12b/15 

66-620 Gubin 

Mam 10 lat i posiadam Atari 800 XL. Bardzo 
chciałbym mieć gry Barbarian I i II, The Train, 
Ace of Aces, World Soccer Do wymiany przez¬ 
naczam kasetę z Kapitan Beeble, Super Cobra, 
Biorytm Submission, Szachy, Bruce Lee, Su¬ 
per Pacman 

Michał Libera, ul. 1000-lecia 35/41 
41-308 Dąbrowa Górnicza 

Mam Commodore 116 i me mogę zdobyć inter¬ 
fejsu do tego komputera. Bardzo proszę o po¬ 
moc, chocby adres lub schemat 

Jarosław Gierszewski, ul. ZWM 7a/29 
75-342 Koszalin 

Pilnie poszukuję gier Barbarian, Winter Games, 
Super Huey, Battle for Normandy, Gauntlet, Kung- 
-Fu Master w wersji kasetowej na Atari 800 XL 

Dariusz Bytniewski, ul. Modrzewiowa 24c/16 

40-170 Katowice 
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Każdy, kto choc trochę in¬ 
teresuje się informatyką, 
bez trudu wymieni kilka lub 
kilkanaście nazw języków 
programowania — nie licząc 
rożnych dialektów. 

Ot, chocby Action!, Ada, Algol, 
Basic, C, Comal, Cobol, Forth, For¬ 
tran, Lisp, Logo, Modula, Occam, Pas¬ 
cal, PL/I, Prolog, Simula— me wspo¬ 
minając mc o językach najniższego 
poziomu, czyli asemblerach Takie 
bogactwo rożnych sposobów zapisu, 
lub rożnych filozofii stojących u pod¬ 
staw rożnych języków wiąże się n e z 
poszukiwaniem języka uniwersalne¬ 
go, nadającego się do wszystkiego, 
bo takiego być me może ale z mno- 
gosfią zastosowań Każdy wymienio¬ 
ny powyżej język ma swoje plusy i mi¬ 
nusy każdy ma swój zakres stosowal¬ 
ności, i — co równie ważne — do pe¬ 
wnych zadań każdy z nich jest nieza¬ 
stąpiony. 

Chcę Wam zaproponować poznanie 
języka C, o którym mówimy dopiero 
od niedawna (Dzieckiem tej samej fi¬ 
lozofii, co C jest Action i, ale istnieje 
on wyłącznie na Atari). 

Byc może jest to związane z tym, 
ze C to język trudny, wymagający zna¬ 
jomości wielu pojęć nieznanych wy¬ 
trawnym specjalistom od Basica, czy 
nawet ekspertom od asemblera. Tym 
niemniej warto zainwestować trochę 
trudu w nauczeniu się przynajmniej 
podstaw. Tym którzy me wierzą ze 
warto, dedykuję program, który druku¬ 
jemy obok Dlaczego 9 Otoz jest to 
nieodłącznie związane z filozofią tego 
języka 

C wymyślono, zęby ułatwić życie 
wszystkim tym, którzy wcześniej uży¬ 
wali asemblera Dlatego tez zawiera 
on wiele instrukcji niemal żywcem wy¬ 
ciągniętych z zestawu instrukcji mi¬ 
kroprocesora Równocześnie jednak 
jest to język wysokiego poziomu, poz¬ 
walający na korzystanie z wyrafinowa¬ 
nych technik programowan a — pro¬ 
cedury (a właściwie funkcje), skompli¬ 
kowane struktury danych, wskaźniki 
— wszystko czego tylko dusza zapra 
gnie Stąd tez obecnie jest to jeden z 
najpopularniejszych języków stoso¬ 
wanych przez zawodowych programi¬ 
stów C króluje podczas pisania pro¬ 
gramów systemowych, edytorów tek¬ 
stu, gier — do niedawna robiono to 
wyłącznie przy pomocy asemblera, 
dzisiaj w asemblerze pisze się najwy¬ 
żej kilkadziesiąt linii programu — tam 
gdzie trzeba skorzystać ze szczegól¬ 
nych możliwości mikroprocesora, gdy 
potrzebna jest maksymalna szybkosc 
lub dokładna znajomość czasu trwania 
jakiegoś podprogramu w taktach ze¬ 
gara Kompilatory C istnieją na niemal 
wszystkich komputerach — od Spec¬ 
trum do Craya To tez św adczy o jego 
popularności 

Gra, którą widzicie obok, ma Was 
przekonać o tym, że to wszystko, co 
napisałem powyżej, jest prawdą Jest 
to gra graficzna, skądinąd bardzo pro¬ 
sta, ale spróbujcie ją napisać w innym 
języku Kilka razy skorzystałem przy 
jej pisaniu z asemblera, ale wyłącznie 


po to, by moc się odwołać do proce¬ 
dur zawartych w ROM-ie oraz do re¬ 
jestru R i do instrukcji IN i OUT proce¬ 
sora Cała reszta to C Nawet duszki 
dały się oswoić (z niewielką pomocą 
ROM-u) Jeżeli me znacie C firmy Hi- 
Soft, służę kilkoma radami praktycz¬ 
nymi 

1 Po wczytaniu kompilatora nacis¬ 
kamy EDIT i ENTER — przechodzimy 
do edytora Edytor jest taki sam jak i w 
innych komp latorach HiSoftu (HP4S, 
GENS) 

2 Po wprowadzeniu programu i 
nagraniu go na taśmę (można również 
skorzystać z microdrive u, podając 
przed nazwą zbioru numer urządzenia 
poprzedzony dwukropkiem, np 
1 GRA__W C), piszemy C i ENTER — 
jesteśmy w kompilatorze Teraz pi¬ 
szemy #include s ENTER. Po zakoń¬ 
czeniu kompilacji naciskamy SYMBOL 
SHIFT 1 1, zęby dac kompilatorowi syg¬ 
nał, ze to juz wszystko — s gramy 

Sama gra jest jDrosta, choc me wró¬ 
żę nikomu wysokiego wyniku (nasz 
redakcyjny rekord wynosi 47 pun¬ 
któw) Przy pomocy klawiszy h, n, k 
oraz o poruszamy po ekranie ośmio¬ 
kątną ramkę Ramka służy do zalepia¬ 
nia dziur, które co jakiś czas pojaw ają 
się na ekranie Zęby dziurę zalepić 
wystarczy na mą najechać Ramki wol¬ 
no używać dopóki dysponujemy 
energią Energia ucieka przez każdą 
mezalepioną dziurę, ale można ją stra¬ 
cie rowmez wpadając na krawędź 
ekranu I ostatnia rada — me zbliżajcie 
się zbyt blisko do paskudnej mordy 
krążącej po ekranie Jej powolność 
może okazać się zwodnicza 1 

Jeżeli chcecie do gry używać 
Kempstona, wystarczy zmienić defini¬ 
cje lewo prawo góra, doł na następu¬ 
jące • 

#defme prawo ( m(31) & 1 ) 

#defme lewo ( in(31) & 2 ) 

#define dół ( in(31) & 4) 

#defme góra ( in(31) & 8 ) 

W taki sam sposob można wprowa¬ 
dzić do programu dowolny inny joy¬ 
stick, lub — jeśli komuś na tym zalezy 
— przedefmiowac klawisze używane 
podczas gry 

Napisan e takiej gry jest na Spec¬ 
trum możliwe tylko przy użyciu C albo 
asemblera Program w C powstał w 
ciągu niecałego tygodnia — wieczora^ 
mi, po dobranocce, o ile rodzina me 
zabrała mi telewizora Zrobienie tego 
samego w asemblerze w tak krótkim 
czasie byłoby niemożliwe — t to jest 
najważniejszy argument na rzecz C 
Naprawdę warto się z mm zapoznać 
Zainteresowanych odsyłam do dwóch 
książek pierwsza to „Język C” B W 
Kermghana i D M Ritchiego — znako¬ 
mite skrzyżowanie podręcznika z 
przewodnikiem, nadająca się dla każ¬ 
dego, kto chce poznać C druga — 
„ Sam na sam z język em C” J Biele¬ 
ckiego — zawiera op s (niekompletny) 
„naszego” komp latora Oprócz tych 
książek radzę przeczytać cykl „Język 
C dla najmłodszych” — pierwszy od- 
c nek był w Bajtku 6/89 

Marcin Borkowski 
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/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/x Gra w c dla niedowiarków. */ 
/x (c) BajteK 1989 */ 
/x Kompilator HiSoft - Spectrum x/ 
/xxxxxxxxxxxxxxxxxxxxxxxx«xxxxxxxxx/ 


#1ist- 


#def me 
#define 
#def me 

#def me 
#defme 
tfdefine 
#define 


border4 

cis 

lial t 

prawo 

lewo 

dół 

góra 


lnline(Ox3E, 4, OxCD» Ox229B) 
inline(OxCD, 0xD6B) 
inline(0x76) 

( !( in(49150) 

( !( in(49150) 

( !( in(32766) 

( !( in(57342) 


4 ) 
15) 
8 ) 
2 ) 


typedef char xChrPtr; 


/x w nazwach zmiennych - litera r odnosi się do x/ 
/x ramki, litera m do mordy, litera p oznacza x/ 
/x zmienną pomocniczą, przechowującą poprzednią x/ 
/x wartość - potrzebną do odtwarzania tła, x/ 

/x litera k - to kierunek ruchu, v - prędkość. x/ 

struct sprite {int rozm; ChrPtr s, m; ) mp, rp; 
char rej a, dziury[704], ramki, mkx, mky, rndx, rndy; 
int energia, ndziur, punkty, mx s my, pmx, pmy; 
int rx, ry, prx, pry, rvx, rvy, de, hi; 


/x Tablice do zapamiętywania tła. x/ 
char rmem[48); 
char mmem[36] *, 

/x Dane określające wygląd spntów x/ 

Char rdat [] = {7, 224, O, 15, 240, O, 28, 56, O, 56, 26, O, 112, 

14, O, 224, 7, O, 192, 3, O, 192, 3, O, 192, 3, O, 192, 3, O, 224, 7, 

O, 112, 14, O, 56, 28, O, 28, 56, O, 15, 240, O, 7, 224, O, 1,248, 

O, 3, 252, O, 7, 14, O, 14, 7, O, 28, 3, 126, 56, 1, 192, 48, O, 192, 

48, O, 192, 48, O, 192, 48, O, 192, 56, 1, 192, 26, 3, 128, 14, 7, 

O, 7, 14, O, 3, 252, O, 1, 246, O, O, 126, O, O, 255, O, 1, 195, 128, 

3, 129, 192, 7, O, 224, 14, O, 112, 12, O, 48, 12, O, 48, 12, O, 48, 
12,0, 48, 14, O, 112, 7, O, 224, 3, 129, 192, 1, 195, 126, O, 255, 

O, O, 126, O, O, 31, 126, O, 63, 192, O, 112, 224, O, 224, 112, 1 , 

192, 56, 3, 128, 28, 3, O, 12, 3, O, 12, 3, O, 12, 3, O, 12, 3, 128, 

26, 1, 192, 56, O, 224, 112, 0, 112, 224, O, 63, 192, O, 31, 128) ; 
char mdat [] = {7, 224, O, 63, 252, O, 115, 206, O, 97, 134, O, 225, 
135, O, 243, 207, O, 252, 63, O, 240, 15, O, 96, 6, O, 112, 14, O, 56, » 
28, O, 7, 224, O, 1,248, O, 15, 255, O, 28, 243, 128, 24, 97, 128, 

56, 97, 192, 60, 243, 192, 63, 15, 192, 60, 3, 192, 24, 1, 128, 28, 

3, 126, 14, 7, O, 1,248, O, O, 126, O, 3, 255, 192, 7, 60, 224, 6, 24, 
96, 14, 24, 112, 15, 60, 240, 15, 195, 240, 15, O, 240, 6, O, 96, 7, 

O, 224, 3, 129, 192, O, 126, O, O, 31, 128, O, 255, 240, 1, 207, 56, 

1, 134, 24, 3, 134, 28, 3, 207, 60, 3, 240, 252, 3, 192, 60, 1, 126, 

24, 1, 192, 56, O, 224, 112, O, 31, 128) ; 




main() 

f 

char rnd(); 

mp. rozm=i2; mp. s- &mdat[O]; mp. m-&mmem[0]; 
rp. rozm=i6; rp. s=&rdat[0]; rp. m:&rmem[0]; 

start: 

punkty=O; ramki:5; border4; 
do 

ł 

f 1 11 (&dziury [O], 704, O) *, 

fili (rp. m, 3xrp. rozm, O) ; 

fili (mp. m, 3xmp. rozm, O) ; 

cis; deska(); opisramekO; 

rx=prx=126; ry-pry:85; rvx:rvy=0; 

mx-my~pmx=pmy-60; 

energia:1000; ndziur=0; 

do 

writeat(l, l, 16); fprintf(i, "Z4d", energia); 
rndx~l+ rnd() X 30; ruchramki(); 

rndy=l+ rnd() Z 19; ruchmordy(); 

zalepianie(); 

lf (rnd() > 124) przedziurawi); 

if ((abs(rx-mx) < 26) && (abs(ry-my) < 16)) 

atakmordy(); 

) 

while (energia>0); 
pauza(50); 

) 

whi1e (ramki--) ; 
pauza(100); 
writeat(2, 11,4); 

pnntf ("Naciśni j dowolny klawisz, " ) ; 
whi1e ( fkeyhit() ); 













goto start; 


ruchramKi() 

{ 

cbar m () ; 

rvx + = prawo-lewo; rvy + = góra-dół; 
rx + = rvx; ry += rvy; 

energia - = ndziur*(punkty>10 ? punKty/10 : l) -i; 
lf (rx>246) { rx:243; szum(); } 

lf (rx<8) ( rx-li; szum(); } 

lf (ry>l67) ( ry=l65; szum(); 1 

lf (ry<l6) { ry=20; szum(); ] 

putsprite(rx, ry, &rp, &prx, &pry) ; 
i 


rucbmordy () 
i 

putsprite (mx, my, &mp f &pmx, &pmy); 
lf (mkx) mx++; else mx--; 
lf (mky) my+ + ; else my--; 

lf (mx>243 ;; mx<13) { mkx=!mkx; beep (100, 100); } 
lf (my>i68 !! myc 15) i mky-!mKy; beep (100, 100); ] 

) 

ataKmordy() 

{ 

int i; 


energia=0; 

for (i=1;i!=15;i + + ) 

l 

mx + = (mx>rx ? -2 : 2); 
my += (my>ry ? -2 : 2); 
putsprite (mx, my, &mp, &pmx, &pmy) ; 
beep(5#i, 220-10*1); 

1 


putsprite(x, y, spr, starex, starey) 

struct sprite *spr; int *starex,*starey; 

{ 

char i, yc, lyc; 

CłirPtr mp, pmp, sp, psp, pixaddr () ; 

x -- 8; y + = spr->rozm/2; 

lyc=*starey; yc = y; 

mp=pmp-spr->m; 

sp= spr->s + 3*((x&6) >> 1)*spr->rozm; 


for (i=0;i!=spr->rozm;i++) 
t 

move(pixaddr(*starex, lyc), mp, 3); 
mp+ =3; lyc--; 
ł 

for (i = 0;i!=spr->rozm; i + +) 
i 

psp=pixaddr(x, yc); move(pmp, psp ? 3) ; 
#psp++ ;= *sp++; #psp++ |= #sp++; 
#psp ;= #sp++; pmp+=3; yc--; 

i 

*starex-x; #starey=y; 


szum() 

{ 

int i; 

for (izO; i i = 300; i + +) out (254, #cast (CbrPtr) i) ; 
border4 ; energia -= ii; 


przedziuraw() 

{ 

int ser; 


ser:32#rndy+rndx; 
if (!dziury[ser]) 
i 

ndziur + +; 

writeat ( 2 , rndx, rndy); 

} 

} 

zalepianie() 

! 

int sery, ser; CłirPtr mz; 

sery:-ry/8 + 21; ser= 32 * scry+rx/8; 

if (dziuryLscr)) 

1 


dziury[ser]=i; 
pute ( ',2); 




dziury[serj =0; 
ndziur--; punkty++; 

mz = &rmem[0] + i + 3*(ry - 162 + 8*scry) 
*mz=0; mz+=3; #mz=0; 

beep(50, 500); 

1 

writeat (l, 1,27) ; fpnntf (l, "7.4d", punkty) ; 


deska() 

( 

writeat (1,0,0); 

paper(4); fprintf(l, ”XcXc”,6,6); 
fprlntf(1, M ENERGIA PUNKTY 

fprintf (l, ” X c X c M , 6, 6); paper (7) ; 

I 

opisramek() 

i 

cbar i, rmki [7] , armkip; 
rmkip=&rmki[0] ; 

for (1=0;i!=ramki;1++) #rmkip + + ='O'; 
*rmkip='\0'; 

writeat (l, 1,2); fprintf (i, M /.-6s", rmki); 


paper(kolor) 
i 

pute(17,2); pute(kolor, 2); 

) 

writeat ( s, x, y) 

C 

pute(22,s); putc(x, s); putc(y, s); 

] 


pauza(n) 

( 

int i; 

for (i=0;i!=200;i+=10) beep(i.i); 
wnile (n--) bałt; 

} 

fili (ptr, n, c) 

CbrPtr ptr; int n; cbar c; 
f 

wbile (n--) *ptr++ = c; 

) 

int abs(x) 

{ 

return(x>0 ? x ; -x) ; 

1 

CbrPtr pixaddr(x, y) 

stanc CbrPtr ptr; 

ml me (OxDD, 0x46, 4, OxDD, 0x4E, 6, 

OxCD, 0x22AA, 0x22, &ptr); 
return(ptr); 
i 

out(addr, sig) 
cbar sig; 

{ 

ml ine (OxDD, 0x46, 7, OxDD, 0x4E Łl 6, 

OxDD, 0x7E, 4, OxED, 0x79) ; 

] 

cbar m(addr) 

( 

inl me (OxDD, 0x46, 5, OxDD, 0x4E, 4, 

OxED,0x78, 0x32, &rej a) ; 
return(rej a); 

i 

cbar rnd() 
i 

inline(OxED, 0x5F, 0x32, &rej_a) ; 
return (rej__a); 

i 

beep(DE, HL) 

de=DE; bl= HL; 

mline(OxDD, 0xE5, OxED, 0x5B, &de, 

0x2A, &bl, OxCD,Ox3B5, OxDD, OxEl); 

1 

#1 i st + 
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KLAN AMSTRAD-SCHNEIDER 


W CP/M le program użytkownika ładowany do obszaru TPA korzysta z za ■ 
sobow komputera oferowanych przez system operacyjny, poprzez odwoła¬ 
nia do modułu BDOS TPA zaczyna się zawsze od adresu 100h, a kończy 
bezpośrednio poniżej modułu BDOS, który znajduje się w górnych obsza¬ 
rach pamięci 

Przestrzeń adresowa od OOh do FFh wykorzystywana rest przez system 
na stronę zerową W 6 i 7 komorce tej strony znajduje się adres modułu 
BDOS, poprzedzony bajtem C3h (instrukcja skoku bezwarunkowego) W 
asemblerze odwołania do BDOS a mają postać CALI 0005h, z uprzednio 
określonym, w rejestrze C, numerem funkcji 
Standardowo przez BDOS zajęte są numery w zakresach 0 63 i 96—127 
Pozostałe wartości mogą byc wykorzystane do zdefiniowania własnych funk¬ 
cji systemowych, wprowadzanych przy pomocy RSX ow (ang Resident Sy¬ 
stem eXtensson). Dzięki RSX om mozhwa jest także modyfikaca standardo¬ 
wych funkcji BDOS a 

RSX y są rezydentnymi rozszerzeniami systemu operacyjnego, których 
wprowadzenie powoduje zmianę adresu modułu BDOS w komórkach strony 
zerowej. W takiej sytuacji, po instrukcji CALL 0005, następuje odwołanie do 
pierwszego, RSX a a nie do samego BDOS a Dopiero po przechwyceniu 
odwołania i sprawdzeniu numeru funkcji następuje ewentualny skok do na 
stępnego RSX a lub do BDOS a, jeśli był to ostatni RSX 
Rezydentne rozszerzenia systemu umieszczane są bezpośrednio poniżej 
modułu BDOS i zmniejszają obszar TPA Ich stosowan e jest koniecznością 
jeśli wykonywany kod musi znajdować się we wspólnej części pamięci (ad 
resy COOOh-FFFFh) Ma to szczególnie miejsce przy dostępie do środowis¬ 
ka ekranu, które zwykle znajduje się w systemowym banku pam ęci 
RSX y pisane są głownie w asemblerze Utworzony przy pomocy edytora 
zbiór musi być poddany asemblacji i konsolidacji Ostatnią fazę stanowi do 
łączenie utworzonego RSX a do programu typu COM 
Konieczne są następujące narzędzia programistyczne: 

1. makroassembler reiokowalny (najlepie M80 COM) 

2 program konsoldujący (linker) — LINK COM 

3 program GENCOM COM 

4 edytor — do tego celu doskonale nadaje się edytor wbudowany w kompi¬ 
lator Turbo Pascala 

Ogólną strukturę RSX a przedstawiono na listingu 1 


; Nagłówek 

RSX' a 




DS 

6 




JP 

Start 

/ 

skok do kodu sprawdzającego 




/ 

numer RSX'a 

BDOS : 

JP 

0000h 

/ 

punkt wejściowy do BDOS'u 


DW 

0000h 



Re move: 

DB 

0FFh 

/ 

RSX ma byc usunięty 

Banked : 

DB 

00h 

/ 

system ma więcej niz 1 bank 

Name : 

DB 

' 01234567 * 

f 

nazwa RSX'a (do ośmiu znakó 


DB 

0.0.0 



; początek 

kodu sprawdzającego numer RSX'a 

Start: 

LD 

A, C 

/ 

pobierz numer funkcji BDOS 


CP 

RSXNo 

/ 

sprawdź z numerem RSX’a 


JP 

Z,Beg i n 

/ 

jeśli OK, to skocz do wyk. 


JP 

BDOS 

/ 

jer li nie, kontynuuj dal 




i 

poszukiwania w module BDOS 


kodu 


; początek kodu wykonywanego przez RSX'a 
Begin : 

; instrukcje 

RET 

; koniec R S X ' a 


Listing 


Budowa Rsx'a 


Najważniejszym elementem jest tutaj nagłówek RSX a składający się z 27 
bajtów Znajduje się w mm kilka istotnych pól, które zostaną kolejno orno 

wionę 

Wewnątrz RSX a wszelkie odwołania do modułu BDOS, polegają na skoku 
do etykiety „BDOS”, a me do piątej komórki strony zerowej Pole opisane 
etykietą Remove umożliwia zdefiniowanie RSX ow, które pozostaną na sta¬ 
łe w pamięci lub zostaną z mej usunięte po wykonaniu programu Wartość 
zerowa tego pola definiuje permanentne rozszerzenie systemowe Pole 
„Name” służy do zadania 8-znakowej nazwy jednoznacznie identyfikującej 
RSX a 

Posłużmy się konkretnym przykładem, aby lepiej zrozumieć budowę 
RSX a. Przedstawiony poniżej program w asemblerze umożliwia zarezerwo¬ 
wanie na stałe bufora o pojemności 2KB Tekst należy wprowadzić do kom¬ 
putera posługując się edytorem Nazwijmy utworzony zbiór RSV MAC (li¬ 
sting 2) 


• ****** *r * * * ******** * * ■*. * *■ * * * ****** * * * * * 

; * RSX rezerwujący na stale bufor * 
; * o pojemności 2KB. Wywołanie RSX'a * 
; * zwraca adres bufora * 

* ********** * * * * * * * * * * * * * * * * ** * * * * * * * * 

. Z30 

RSXNo EQU 6 6 ; numer R S X'a 

BufSize EQIJ 08 00h ; rozmiar bufora 

C o F O ; s e g mc n t k o cl 11 

; nagi'ów<*k R 3 X ' a 



DS 

6 


JP 

Star t 

BDOS : 

JP 

0 0 0 0 h 


DW 

0fi00h 

Remove: 

DB 

0 

Banked: 

DB 

0 

Name : 

DB 

’Reserve 


DB 

0,0,0 

Start: 

LD 

A,o 


CP 

R 3 X N o 


JP 

Z,Begin 


JP 

BDOS 

Begin: 

LD 

RET 

HL,Buf f er 

Bu f fe r : 

DS 

END 

BufSi ze 


permanentny R3X 
nazwa RSX'a 


• *************** ******** * * * ************** 

/ 


Listing 2. Przykładowy RSX 


Przy założeniu, ze na dyskietce znajdują się następujące programy 
M80 COM LINK COM GENCOM COM 
należy wykonać następujące polecenia 
A M80 = RSV 
A>L!NK RSV [OP] 

A>REN RSV RSX =RSV PRL 
A GENCOM RSV [NULL] 

W wyniku tego postępowania otrzymamy program RSV COM, ktorego uru 
chomienie spowoduje zarezerwowanie bufora Jego adres będzie dostępny 
w rejestrze HL, po wywołaniu funkcji modułu BDOS z rejestrem C równym 
66 W Turbo Pascalu można to zrealizować przy pomocy jednej instrukcji 
Adres_bufora : = BDOSHL (66); 

gdzie zmienna Adres_bufora jest typu INTEGER i została wcześniej zadekia 
rowana w programie 

Przy pracy z RSX , ami warto zdefiniować następujący zbiór wsadowy o na- 
zwie MAKERSX SUB (listing 3.). 


M8 0 -$1 
LINK $1 [OP] 

ERA $1.R3X 

RFN $1 .RSX- $1 .PRL 

GENCOM 01 [NULL] 


Listing 3. Plik MAK ERB X CUP, 


Wywołanie: A>SUBMIT MAKERSX RSV 

zastosowane do zbioru RSV MAC w obecności programów SUBMIT COM, 
M80 COM, LINK COM. GENCOM COM, spowoduje utworzenie zbiorow 
RSV RSX i RSV COM 
Jeśli poprzednio użyliśmy komendy 
A>SETDEF [ORDER = (SUB COM)] 

to przygotowanie RSX a ze zbioru zawierającego jego tekst w asemblerze 
M80, wymaga następującego polecenia 
A>MAKERSX nazwsuzbioru_bez rozszerzenia 

Kolejnym ułatwieniem przy pracy z RSX ami wykorzystywanymi przez pro¬ 
gramy pisane w Turbo Pascalu może być dołączenie RSX’a bezpośrednio 

do kompilatora 

A>GENCOM TURBO COM zbiór~typU-RSX 
Oczywiście w przypadku zbioru RSV MAC i innych permanentnych RSX ow, 
me ma sensu ich dołączanie do programu, ponieważ każdorazowe wywoła¬ 
nie takiego programu instalowałoby kopię RSX a, prowadząc do stałego 
zmniejszania obszaru TPA Permanentne rozszerzenia powinny byc tworzo¬ 
ne przy pomocy opcji [NULL] polecenia systemowego GENCOM i wywoły¬ 
wane jednokrotnie 

Zbiór typu RSX, otrzymany przy pomocy zbioru wsadowego MAKERSX, 
może byc także dołączony, instrukcją GENCOM do dowolnego programu: 

A GENCOM zbiór_typu-COMzb.orJypu RSX 

Jeśli program ten jest napisany w Turbo Pascalu, to kompilując go na dysk 
musimy pamiętać o zmniejszeniu adresu końcowego pliku wynikowego typu 
COM Wynika to z faktu że dołączony RSX ładuje się jako pierwszy, zmniej¬ 
szając dostępny obszar TPA, przeznaczony na program użytkownika 

Przykłady RSX’ow w systemie operacyjnym CP/M Plus dla komputerów Am- 
strad PCW 8256/8512 i CPC 6128 zostały podane w kilku numerach Bajtka w 
roczniku 1988: 

— Nr 2. Informacja o sprzęcie (PCW I CPC) 

— Nr 5. Własne znaki na ekranie (PCW) 

— Nr 8. Komenda PLOT w Turbo Pascalu (PCW) 

— Nr 9. Zrzut ekranu na drukarkę (PCW) 

— Nr 10. Własne znaki na ekranie (CPC) 

— Nr 11. Rekonfiguracja klawiatury (PCW i CPC) 

— Nr 12. Procedury obsługi okien (PCW) 


Jonasz Mayer 
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Wróćmy na chwilę do naszych rozwazan o listach *K Struktura listowa, z sa~ 
mej głęb swej natury, oferuje tylko sekwencyjny dostęp do zapisanych da¬ 
nych W wielu zastosowaniach jest to duża niedogodność Wyobraźmy sobie 
np., ze musimy zarejestrować w maszynie nazwiska bardzo licznej, wielotysię¬ 
cznej grupy osob Nawet jeśli uporządkujemy listę nazwisk alfabetycznie, to i 
tak, za każdym razem gdy zechcemy odszukać kogoś na Z będziemy musieli 
przejść przez wszystkie poprzednie litery alfabetu. Dobrze byłoby móc wpro¬ 
wadzić na naszej liście rozgałęzienia, np oddzielną odnogę na każdą literę 
rys.1 


1-£ 


1 


N e musi to być koniec podziałów Jeśli me tylko z pierwszego, ale z każde¬ 
go elementu listy można tworzyć więcej niż jedną drogę, to otrzymany twór 
mógłby wyglądać np. tak: 
rys.2 


i c 


A*. 


* D 


n 


r> - ( f 


* G 


aJ 


Oczywiście me jest to już lista. Taką konstrukcję zwykle nazywamy drzewem 
(ang tree). W drzewie istnieje jeden wyróżniony element, ten z którego (bez¬ 
pośrednio lub pośrednio) można dojść do wszystkich pozostałych Ten ele¬ 
ment to korzeń drzewa (ang. root). Poszczególne elementy drzewa to węzły 
(ang node) Do węzła wchodzi dowiązanie z góry, od ojca (ang. parent), i 
mogą wychodzić powiązania do synów (ang. child) Węzeł z którego me wy¬ 
chodzą już żadne dalsze powiązania (który me ma synów), nazywamy liściem 
(ang. Ieave). Kolejne powiązania prowadzące od korzenia poprzez węzły do 
poszczególnych liści nazywamy ścieżkami lub drogami (ang. path) W drzewie 
na poprzednim rysunku przykłady ścieżek to: A,B,C; A.B.D; A.E.F.G.I; me jest 
natomiast ścieżką ciąg wierzchołków A,B.D,E. Długość ścieżki mierzymy jako 
liczbę leżących na mej węzłów (łącznie z korzeniem i liściem). Wysokość drze¬ 
wa to długość najdłuższej ścieżki. Fragment drzewa utworzony w ten sposób, 
że wybieramy dowolny węzeł i bierzemy wszystkie wychodzące z niego ścież¬ 
ki nazywamy poddrzewem. Np. w naszym drzewie, jednym z poddrzew jest 
BDC Jego wierzchołkiem jest B. 

Po tym przeglądzie podstawowych terminów leśniczych jedna drobna uwa¬ 
ga; w większości publikacji informatycznych drzewa rosną korzeniem do góry 
(czyli zielonym do dołu), a więc tak. 
rys 3 


A 


B 


i £ J 


F 


1_ 


D 


I uwaga poważniejsza. W informatyce używa się przede wszystkim drzew bi¬ 
narnych, tzn. takich, że z jednego węzła wychodzą conajwyżej dwa powiąza¬ 
nia Inaczej mówiąc, w drzewie binarnym wierzchołek może mieć zero, jedne¬ 
go lub dwóch synów. 

Jeśli chodzi o praktyczną realizację struktur drzewiastych w zwykłej pam ęci 
operacyjnej, to musimy umieć zaimplementować strzałki tworzące powiązania 
Można to zrobić w oparciu o zmienne wskaźnikowe (w tych językach progra¬ 
mowania, w których zmienne wskaźnikowe istnieją) Można tez tworzyć powią¬ 
zania operując bezpośrednio na adresach obiektów (węzłów) w PaO Bardziej 
szczegółowo opisywaliśmy realizację takich powiązań przy tworzeniu list * } , nie 
warto więc chyba tego powtarzać. 

Często na strukturę drzewa binarnego" nakłada się dodatkowe warunki, a 
otrzymanej konstrukcji nadaje specyficzną nazwę Przykładem może byc tu 
drzewo uporządkowane Jego węzły zawierają liczby, przy czym wykonując 
wszystkie operacje na tym drzewie musimy zapewnić spełnienie następujące- 
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go warunku dla każdego węzła, wartość lewego syna jest mniejsza a wartość 

prawego syna jest większa niż wartość zapisana w tym węzie 
Oto dwa przykłady drzew uporządkowanych 
rys 4,5 


5 *) 


^ 


r — 

i 3 i 


a e \ 


>- ”*-V 

i 1 6 J 


f IB ) 


4 -' 

1 


20 ) 2 

/ x / 



ii 


( 

V.. 


15 j 


YTi 

v__^ 






13 " 

y 


V 

< 19 j 


/ Fh > 


oraz przykład drzewa, które me jest uporządkowane w opisany wyżej sposobi 
rys. 6 


( 5 1 


i 3 i 


ii 0 \ 


(16 


18 : 


19 ) 


?0 


Spróbujmy w oparciu o takie drzewo rozwiązać raz jeszcze problem, od któ¬ 
rego dawno temu rozpoczynaliśmy spotkania ze strukturami danych, czyli za¬ 
danie wyszukania podanej wielkości w danym ciągu liczb. 

Budujemy drzewo uporządkowane, w ktorego węzłach znajdują się elemen¬ 
ty ciągu. Jeśli teraz chcemy sprawdzić czy liczba X należy do ciągu, to porów¬ 
nujemy ją z wierzchołkiem Jeśli jest równa to O K Jeśli jest mniejsza to prze¬ 
chodzimy do lewego syna, jeśli jest większa przechodzimy do prawego. Pow¬ 
tarzamy to samo postępowanie co w wierzchołku, w efekcie znowu przecho¬ 
dzimy poziom niżej, itd. aż do znalezienia wartości lub dojścia do liścia, skąd 
me ma dalszej drogi, co oznacza ze X me występuje w drzewie 

Jeśli budując drzewo oraz wstawiając i usuwając elementy w drzewie juz ist¬ 
niejącym spełnimy odpowiednie warunki na równomierność rozbudowy 
wszystkich gałęzi, to opisany algorytm daje naprawdę rewelacyjne rezultaty. Li¬ 
czba porównań potrzebnych do znalezienia odpowiedzi jest znacznie mniejsza 
niż liczba elementów w ciągu 

Na drzewa można patrzeć także nieco inaczej, me tylko jako na „porozgałę- 
ziane listy W rzeczywistości ich definicja jest dużo bardziej precyzyjna gdyż 
do informatyki drzewa trafiły z matematyki. Stanowią one część w ększej rodzi¬ 
ny obiektów, zwanych grafami. I chociaż nie mam zamiaru wciągac Czytelni¬ 
ków w głąb matematyki to chcę również grafom poświęcić chwilę uwagi. Za¬ 
miast podawania ścisłej definicji, którą zwykle posługują się matematycy spró¬ 
buję odwołać się do intuicji. Zacznijmy od narysowania kilku grafów, 
rys. 7 




Proste, prawda? Graf to nic innego jak zbiór punktów (wierzchołków grafu) 
połączonych między sobą. Połączenia nazywane są krawędziami grafu, lub 
(rzadziej) łukami Krawędzie stykając się w wierzchołkach tworzą drogi Aby 
wygodnie było opisywać graf, zwykle wierzchołki oznaczamy, np. literami Ze 
względów praktycznych jeszcze lepsze okazuje się często oznaczanie wierz¬ 
chołków kolejnymi liczbami naturalnymi od 1 do N czyli po prostu ponumero¬ 
wanie wierzchołków grafu 
Zwróćmy uwagę, ze grafy: 
rys 8 


i 4 . 


i* * 


3 * 


i 


to trzy różne obiekty 1 i 2 mają ten sam zbiór wierzchołków, ale różne zbiory 
krawędzi. Zaś np. 2 i 3 mają taki sam zbiór krawędzi, ale różnią się zbiorami 
wierzchołków Nawiasem mówiąc, 3 jest przykładem tzw grafu niespójnego, 
gdyż me ma w mm możliwości przejścia po krawędziach przez wszystkie 
wierzchołki Inny szczególny rodzaj grafu reprezentuje 1 — jest to tzw graf pe¬ 
łny. Nie można w nim dołożyć żadnej krawędzi, gdyż wszystkie możliwości po¬ 
łączeń między wierzchołkami są juz wykorzystane 

Wspominam tu o grafach mimo tego że me są one strukturami danych, ale 
do grafu da się sprowadzić wiele zadań. Inaczej mówiąc, graf jest doskonałym 
matematycznym modelem dla wielu ważnych problemów praktycznych Przy¬ 
kładów me trzeba daleko szukać, wystarczy popatrzeć na mapę połączeń dro¬ 
gowych czy kolejowych, sieci łącznościowe, systemy energetyczne, wodne, 
kanalizacyjne, czy wiele innych. 

Ważnym problemem jest więc właściwa reprezentacja grafów w pamięci i 
tym właśnie spróbujemy się zając. Zakładamy, ze graf ma N wierzchołków, po¬ 
numerowanych od 1 do N Jesii interesuje nas tylko struktura grafu to opis 



































































wierzchołków mamy „z głowy” — nic więcej nie musimy o nich wiedzieć. Gdy 
z wierzchołkami w ęzą się dodatkowe informacje to możemy je przechowywać 
np. w tablicy N-elementarnej przeznaczając po jednym elemencie na każdy z 
wierzchołków. 

Do zapisania połączeń (czyli zbioru krawędzi) grafu możemy użyć tablicy 
kwadratowej o wymiarach NxN Nazwijmy ją KRAW [I N 1 N], Dla wartości 
zmiennych i.j od 1 do N będziemy wpisywać KRAW [i,j] = 1 gdy z wierzchołka o 
numerze j jest krawędź do wierzchołka o numerze i. Jeśli krawędzi między tymi 
wierzchołkami nie ma, to KRAW [i.j] = 0. Oto przykład grafu i zawartości tablicy 
opisującej jego zbiór krawędzi 


rys 9 
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Metoda jest prosta i naturalna często z powodzeniem stosowana. Ma jednak 
również minusy Tablica o wymiarach NxN ma oczywiście N elementów Jeśli 
mamy do czynienia z dużymi grafami, np mającymi tysiące wierzchołków to 
na tablicę KRAW potrzeba milionów komórek pamięci. Nawet samo jej wypeł¬ 
nienie i najprostsze operacje na całym grafie wymagają wykonania ogromnej li¬ 
czby operacji Jeśli na dodatek wiemy, że w naszym zastosowaniu występują 
grafy stosunkowo rzadkie mające niewiele krawędzi to reprezentacja przy po¬ 
mocy tablicy jest zdecydowanie rozrzutna. Przykład graf ma tysiąc wierzchoł¬ 
ków i 5 tysięcy krawędzi. Tablica KRAW zajmuje milion! komorek z czego tylko 
10 tysięcy komórek zawiera jedynki, pozostałe 990 tysięcy musimy pracowicie 
wypełnić zerami 

W powyższej sytuacji wygodniej jest zapisać zbiór krawędzi grafu w postaci 
listy Jeden element listy będzie opisywał krawędź jako parę (p,k) dwóch liczb. 
Oczywiście liczby te, to numery wierzchołków połączonych krawędzią? Ele ¬ 
mentów listy będzie dokładnie tyle ile faktycznie istnieje krawędzi. 

Pewną odmianą powyższego sposobu jest przechowywanie dla każdego 
wierzchołka grafu listy krawędzi z mego wychodzących, co właściwie jest row 
noważne przechowywaniu listy wierzchołków połączonych z danym Zamiast 
jednej listy, mamy w tym rozwiązaniu N list — po jednej dla każdego z wierz 
chołkow 

Jak zwykle, określenia która metoda jest najlepsza dokonujemy dop ero zna¬ 
jąc szczegóły stojącego przed nami zadania. 

I wreszcie przyszła pora na dwa pożegnania Z drzewami i grafami żegnamy 
się zwracając uwagę, ze rozmiary artykułu pozwoliły właściwie tylko zasygnali¬ 
zować istnienie i wielkie znaczenie tych obiektów. Wiedza na ich temat jest bo 
wiem ogromna Jeśli ktoś chce uzyskać bliższe informacje musi odwołać się 
do literatury. 

Zegnamy się dziś także z Czytelnikami i sympatykami „Struktur danych” 
gratulując wytrwałości i dziękując za uwagę 

* O listach pisaliśmy w „Bajtku” nr i nr 

Andrzej Krul 


MICItOMAN 


oferuje 

1 Programy i literaturę dla kompute 
rów Atan XL/XE, Commodore 16/ 
116/+-4, Spectrum/Timex na miejs¬ 
cu lub za zaliczeniem pocztowym 

2 Dla użytkowników ELWRO 800 pro¬ 
gram kopiujący taśma — dysk 

3 Przystawki UNIN/ERSAL TURBO dla 
magnetofonów Atan XC12, umożli¬ 
wiające zapis i odczyt programów 
zarowno w systemie BLIZZARD jak 
i TURBO 2000 

UN!VERSAL TURBO to połączenie 
dwóch najpopularniejszych syste¬ 
mów transmisji w Polsce, to przy 
tym samym koszcie możliwość wy¬ 
boru 

4 Naprawę klawiatur dla komputerów 
ZX Spectrum 

5 Dodatkowe akcesoria dia Kompute¬ 
rów domowych. 

Informacje na miejscu lub za zatącze 

niem koperty zwrotnej i znaczKa. 

Adres MICROMAN 

40-181 Katowice 
ul. Osikowa 66 
tel 585-106 

(SB 68) 


ZX SPECTRUM 

Polskie programy do zabawy, ekspery 
mentow oraz ciekawych zastosowań 

— zestaw TOTO (DL SL, Ex, ZS) 

— LIGA POLSKA 

— LITERKI — dia przedszkolaków ro¬ 
dziców i dziadkowi 

— oraz inne atrakcyjne programy 
Informacje kopertą zwrotną 

MASTER BIT 


61-660 Poznań 31 skr p 56 D-23 



SPECTRUM! 

TIMC3C! 


SUPER NOWOŚĆ! 

Komplet mikroprogramow układają¬ 
cych krzyżówki, zadania szaradziars 

kie. 

koperta zwrotna. 

Bogdan CHMIELĄ 
32-087 Zielonki 264 

(SB 64) 



Nigdy jeszcze nie pisaliś¬ 
my na łamach Bajtka o za¬ 
stosowaniu komputerów do 
symulacji rożnych układów, 
tymczasem jest to jedno z 
ich podstawowych zastoso¬ 
wań. W wielkich ośrodkach 
naukowych większość cza¬ 
su pracy komputerów zaj¬ 
muje prowadzenie skompli¬ 
kowanych obliczeń, przy 
pomocy których można zna¬ 
leźć rozwiązania zadań nie¬ 
rozwiązywalnych w inny 
sposob. Chcę Wam przed¬ 
stawić jedno z tych zadań. 

Nazywa się ono problemem n ciał, i 
jest bardzo proste do sformułowania 
Wyobraźcie sobie kilka planet i plane- 
tek (czyli n różnych ciał) znajdujących 
się w znanych miejscach w przestrze¬ 
ni poruszających się w znanych kie¬ 
runkach i ze znanymi prędkościami, 
oraz działających na siebie siłami gra 
witacji Nasze zadanie brzmi: dyspo¬ 
nując wszystkimi tymi danymi, obli¬ 
czyć położenie wszystkich n ciał po 
upływie określonego czasu (np. za ty¬ 
dzień) Natura daje sobie z tym radę 
bez problemu, co widać na niebie — 
tory wszystkich poruszających się po 
nieboskłonie ciał, takich jak planety, 
planetoidy, komety i meteory są właś¬ 
nie efektem rozwiązania o r oblemu n 
ciał 

To, co robi natura, astronomowie 
starają się powtórzyć na papierze przy 
pomocy matematyki. Ooisame przy jej 
pomocy układu n ciał jest zarazem 
proste i trudne. Proste — bo prawa, 
według których te ciała się zachowują, 
me są niczym skomplikowanym, zre¬ 
sztą znane są tym z Was, którzy skoń¬ 
czyli pierwszą klasę liceum. Trudne — 
bo matematycy nie potrafią w sposób 
ogólny rozwiązać powstającego, po 
wypisaniu wszystkich potrzebnych 
wzorów układu rownan różniczko¬ 
wych. Mogą sobie z mm poradzić tyl¬ 
ko w pewnych szczególnych sytuacjach 
— kiedy n=2, albo n=3, ale masa jed¬ 
nego z ciał jest tak mała, ze można ją 
pominąć w porównaniu z masami pozo¬ 
stałych ciał — czyli w przypadkach naj¬ 
prostszych Tymczasem nawet zęby 
policzyć dokładnie, gdzie Pędzie się 
za klika miesięcy znajdować Księżyc, 
trzeba wziąć pod uwagę Ziemię, Słon¬ 
ce i przynajmniej trzy planety — We¬ 
nus, Marsa i Jowisza, których wpływu 
nie można pominąć. I co wtedy? 

Zanim odpowiemy sobie na to pyta¬ 
nie obejrzyjmy stosowany przez ma¬ 
tematyków i astronomów układ rów¬ 
nań. (Zobimy to w uproszczony spo¬ 
sob, tak, byście mogli zrozumieć całe 
zagadnienie bez wnikania w jego ma¬ 
tematyczną stronę, opierającą się na 
rachunku różniczkowym) Pierwszym 
równaniem będzie prawo powszech¬ 
nego ciążenia: 

F = GMmr/r 

mówiące nam, że siła grawitacji, z jaką 
dwa ciała się nawzajem przyciągają, 
zalezy od iloczynu ich mas i jest od¬ 
wrotnie proporcjonalna do kwadratu 


odległości między mmi. Wprawdzie w 
mianowniku naszego równania odleg¬ 
łość między ciałami jest w trzeciej po¬ 
tędze, ale to dlatego ze siła jest wek¬ 
torem, to znaczy, ze ma me tylko 
określoną wartość, ale także kierunek 
(Zęby to zaznaczyć oznaczyliśmy ją 
wytłuszczoną literą). Kierunek siły 
grawitacji jest dokładnie taki sam jak 
kierunek wektora łączącego środki 
obu ciał, a oznaczonego przez r Zęby 
moc ten kierunek wprowadzić do rów¬ 
nania wstawiliśmy r do licznika, a r 
do mianownika (Kto me rozumie o co 
chodzi, mech sięgnie do podręcznika 
do fizyki dla klasy pierwszej liceum 
ogólnokształcącego) Jeżeli ciał jest 
więcej niz dwa, prawą stronę tego rów¬ 
nania zastępuje się sumą — wypad¬ 
kowa siła działająca na c ało jest rów¬ 
na sumie działających sił 
Drugie równanie to drugie prawo dy¬ 
namiki Newtona: 

F = ma 

opisujące zachowanie się ciała o ma¬ 
sie m pod wpływem przyłożonej siły F 
Wynika z niego, że jeśli na jakieś ciało 
działa siła F, to będzie się ono poru¬ 
szać z pewnym przyspieszeniem a 
Możemy teraz siły występujące w obu 
wzorach przyrównać do siebie. Otrzy¬ 
mamy następujące równanie: 

ma = - IGMmr/r 

Masę m możemy skrócić — to co zo¬ 
stanie po prawej stronie równania na¬ 
zywa się natężeniem pola grawitacyj¬ 
nego. Wprawdzie w sumie znajdującej 
się po prawej stronie równania nie ma 
indeksów, mówiących, które wyrazy 
trzeba sumować, ale sprawa jest 
oczywista — dodajemy do siebie na¬ 
tężenia wszystkich pól grawitacyj¬ 
nych, oprocz pola pochodzącego od 
ciała o masie m. Ponieważ takie samo 
równanie możemy napisać dla każde¬ 
go ciała, mamy układ równań — tylu 
ile jest ciał. (Wprawdzie w tych równa¬ 
niach me widać nigdzie położenia cia¬ 
ła, ale ono w nich występuje — przys¬ 
pieszenie jest przecież drugą pochod¬ 
ną położenia po czasie). 

Wyobraźmy sobie teraz, co się 
dzieje w przestrzeni kosmicznej 
Weźmy pod uwagę kilka ciał o zna¬ 
nych masach. W pierwszej chwili 
wszystkie mają jakieś swoje położenie 
i szybkości, z jakimi się poruszają (są 
to tak zwane warunki początkowe, od 
których również zalezy rozwiązanie). 
Ponieważ ciała będą się nawzajem 
przyciągać, każde z nich będzie poru¬ 
szać się z pewnym przyspieszeniem, 
które potrafimy obliczyć na podstawie 
znajomości mas i położeń. To przyspie¬ 
szenie spowoduje zmiany szybkości, 
z którymi ciała się poruszają, i dzięki 
którym następują zmiany ich położeń. 
Z kolei zmiana położeń powoduje 

zmiany odległości między ciałami, a 
więc i sił z jakimi ciała się przyciągają, 
co powoduje zmianę przyspieszeń 
powodujących zmiany szybkości. . — 
i tak dalej. Gdzie szukać pomocy przy 
rozwiązywaniu tego galimatiasu? 

To już wiemy — w komputerach Ale 
jak? 

Zwróćmy uwagę na następujący 
fakt wprawdzie siła, z jaką ciała się 
przyciągają, ulega ciągłym zmianom 
ale w ciągu odpowiednio krótkiego 
czasu żadne z ciał me przesunie się 
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tak daleko, zęby zmiana siły były 
duża Możemy przyjąć ze w ciągu krót¬ 
kiego czasu (który będziemy ozna¬ 
czać At) siła jest stała Skoro tak, to 

stałe jest również przyspieszenie, i 
możemy obliczyć nową szybkość cia¬ 
ła po czasie At, jako 

Vnowe = Vstare + aAt 

(prędkość v jest również wielkością 
wektorową). Skoro się powiedziało a, 
trzeba powiedzieć również b Jeżeli w 
ciągu krótkiego czasu prawie stałe jest 
przyspieszenie, to szybkość ciała tez 
możemy uznać za stałą i nowe poło¬ 
żenie każdego ciała będziemy obli¬ 
czać jako 

Xnowe - Xstare + vAt 

gdzie x jest promieniem wodzącym, 
czyli wektorem łącząycm ciało z ja¬ 
kimś wybranym punktem, np z po¬ 
czątkiem układu współrzędnych W 
ten sposób możmy obliczyć położenie 
ciała po czasie At. A co dalej? Dokła¬ 
dnie to samo — obliczamy nowe war¬ 
tości przyspieszenia, nowe prędkości 
i nowe położenia, żeby móc ponownie 
z nich skorzystać — tak długo, az 
otrzymamy upragniony wynik Oczy¬ 
wiście będzie on obciążony pewnym 
błędem, ale są różne sposoby na to, 
by błąd ten był jak najmniejszy. 

Teraz czas na napisanie programu, 
który dokona obliczeń. Aby jeszcze 
trochę uprościć zadanie, załóżmy że 
wszystkie ruchy odbywają się w jed¬ 
nej płaszczyźnie (nie musi to być wca¬ 
le dalekie od prawdy — w układzie 
słonecznym orbity wszystkich planet 
leżą z grubsza w jednej płaszczyźnie, 
tak zwanej płaszczyźnie ekhptyki) We 
wszystkich wzorach, z których ko¬ 
rzystaliśmy, występowały wektory, 
które teraz rozłożymy na składowe ró¬ 
wnolegle do osi OX i osi OY W tablicy 
A znajdują się wartości natężenia pola 
grawitacyjnego, w tablicy V prędkości 
ciał, a w tablicy XY ich współrzędne. 
Tablica M zawiera masy wszystkich N 
ciał 

Wszystkie wartości występujące w 
programie są przeliczone na nietypo¬ 
wy układ jednostek — masy to wielo¬ 
krotności masy Ziemi, odległości wy¬ 
rażone są w jednostkach astronomi¬ 
cznych (1 j a. to średnia odległość 
Ziemi od Słońca, czyli około 144 min 
km), czas mierzony jest w sekundach. 
Dzięki temu nie mamy do czynienia z 
niewygodnymi w użyciu bardzo duży¬ 
mi liczbami. Wszystkie te zmiany jed¬ 
nostek zostały uwzględnione w stałej 
grawitacji, która ma w programie war¬ 
tość 1 19E—19, różną od znanej nam 
z układu SI. Prędkość (z km/s) jest 
przeliczana na j a./s (służy do tego 
stała VPRZ) Wartość At o której po¬ 
danie program również prosi, musi 
być wyrażona w sekundach (sensow¬ 
ne wyniki uzyskuje sę np dla 
At= 100000 s, czyli trochę ponad jed 
ną dobę) 

Program napisałem w Pascalu, 
(zęby przy okazji zachęcić Was do ko 
rzystanta z tego ęzyka) W procedu¬ 
rze PRZYSPIESZENIA korzystamy w 
celu skrócenia obliczeń z faktu, ze 
odległość między dowolnymi dwoma 
ciałami wystarczy obliczyć jeden raz. 
Stałe występujące w procedurze WY¬ 
NIKI służą do skalowania rysunku, XM 
i YM to wyrażone w jednostkach 
astronomicznych współrzędne lewe¬ 
go dolnego rogu ekranu, DX i DY to 
ilość pikseli przypadających na jedną 
jednostkę astronomiczną (aktualne 
wielkości są dobrane dla Spectrum) 
Jeżeli podczas obliczeń któreś z ob¬ 
serwowanych ciał znika za krawędzią 
ekranu, można łatwo zwiększyć ob 
serwowany obszar manipulując opisa 
nymt stałymi Wprawdzie prezentowa 
na wersja były testowana przy użyciu 
kompilatora HP4S na Spectrum ale 
przeniesienie programu na inne kom- 
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putery me powinno sprawie nikomu 
trudności — przystosowanie progra¬ 
mu do kompilatora Turbo Pascala 5 0 

zajęło mniej niż pięć minut rzy pro¬ 
cedury CLS, KEYPRESSED (zwraca¬ 
jąca wartość RUE jeśli został naciś¬ 
nięty jaks klawisz) i PLOT będą wy¬ 
magały przeróbki, cała reszta progra¬ 
mu nie 

Żebyście mogli obejrzeć program w 
działaniu, proponuję Wam uruchomić 
go dla następujących danych" 

1. Dwa ciała, pierwsze masa= 
300000, XO=-1, YO = 0, VXO-0, 
VYO = 0; drugie* masa=1, XO=-1, 
YO = 1, VXO= 28 VYO = 0, delta t = 
100000 s Te dane w przybliżeniu do¬ 
tyczą Ziemi i Słońca — Słonce stoi 
nieruchomo, Ziemia krąży dookoła po 
niemal kołowej orbicie Zmieńcie teraz 
masę drugiego ciała (czyli planety) na 
10000 — Słonce rusza z miejsca i za¬ 
czyna “tańczyć" — na podstawie ta¬ 
kiego „tańca” można pośrednio wy¬ 
krywać planety krążące dookoła in¬ 
nych gwiazd. 

2 Trzy ciała, pierwsze masa 50000, 
XO=-2, YO-O, VXO = 3, VYO~0, 
drugie. masa 5000, XO=-2, 

YO= 1.5, VXO = 10, VYO=-1, trzecie: 
masa 1, XO = -2, YO = 1 6, VXO = 21, 
VYO = -2, delta 1 100000. Trzecie cia¬ 
ło będące na początku satelitą drugie¬ 
go, zostaje przechwycone przez 
pierwsze najmasywmejsze ciało (a to 
wcale me koniec!) Na tym przykładzie 

możecie łatwo sprawdzić, że rozwią¬ 
zanie zależy od przyjętej wartości At 
— jeżeli zmniejszycie ją do 10000, hi¬ 
storia układu będzie inna. Wiąże się to 
z zastosowanym przybliżeniem (sta¬ 
łość przyspieszenia i prędkości w cią¬ 
gu krótkiego czasu. Istnieją sposoby 
umknięcia takich kłopotów, ale jest to 
osobny, bardzo obszerny temat. 

Te przykłady to tylko wierzchołek 
góry lodowej. Ci z Was, którzy zainte¬ 
resują się programem na pewno sami 
znajdą inne ciekawe przypadki. Pro¬ 
ponuję im pewną interesującą operac¬ 
ję, polegającą na zmianie układu 
współrzędnych Jeżeli w instrukcji oz¬ 
naczonej trzema gwiazdkami oprocz 
stałych XM i YM umieścicie współrzęd¬ 
ne któregoś z obserwowanych ciał, 
zmienicie układ współrzędnych na 
związany z tym ciałem (przykładowo 
zastępując różnicę XY[I X] -XM wy¬ 
rażeniem XY[I,X] ~XY[1 ,X]-XM a 
rozmeę XY[I,Y]-YM wyrażeniem 
XY[I,Y]'-XY[1 ,Y] - YM zmieniamy 
układ współrzędnych na taki, ktorego 
środkiem jest zawsze ciało numer 1). 
Przy pomocy tej operacji można obej¬ 
rzeć powstawanie epicykli („pętelek" 
jakie robią planety na tle gwiazd na 
skutek ruchu Ziemi) A może program 
przyda się na lekcjach astronomii? 

Marcin Borkowski 



Epicykle — kropka w samym środ¬ 
ku to planeta, z które] prowadzimy 
obserwacje , kolko dookoła niej to 
pozorna droga słońcaa „koronki 
— to właśnie epicykle 


PROGRAM GRAWITACJA; 


CONST 

G = i.19E-19; 

VPRZ = 6. 66E 09; 

MAXN 8 50; 

TYPE 

KOORDYNATY = (X,Y); 

DANE = ARRAY[1. MAXN, X. . Y]OF REAL; 

MASY = ARRAY[i. . MAXN]OF REAL; 

VAR 

A, V, XY DANE; 

M : MASY; 

N : INTEGER; 

DT : REAL; 

PROCEDURĘ CLS, 

BEGIN 

WRITE(CHR(12)) 

END, 

FUNCTION KEYPRESSED : BOOLEAN; 

BEGIN 

KEYPRESSED: =INCH< >CHR(O) 

END; 

PROCEDURĘ PLOT(X, Y : INTEGER); 

BFGIN 

INLINE (#FD, #2 1 #3A, #5C, #DD, #46, #02, 

#DD, #4E, #04, #CD, #E5, #22) 

END, 

PROCEDURĘ PRZYSPIESZENIA(VAR A, XY : DANE; 

VAR M : MASY,N : INTEGER); 

VAR 

DELTX,DELTY, R, RM : REAL; 

K KOORDYNATY, 

I,J : INTEGER; 

BEGIN 

FOR K: = X TO Y DO 

FOR l:=i TO N DO A[I,K);=0; 

FOR I: = 2 TO N DO 

FOR J =i TO I-1 DO 
BEGIN 

DELTX =XY[I, X)-XY[J, X] ; 

DELTY =XY[I,YJ-XY[J,Y); 

R. -SOR(DELTX)+ SQR(DELTY); 

R: = R #SQRT(R), 

RM:-M[J]/R; 

A[I,X]:=A[I,X]-RM#DELTX, 

A[I,Y]:=A[I,Y] -RM* DELTY, 

RM:=M[I)/R; 

A[J. X) : =A[J, X]+RM*DELTX; 

A[J, Y]: -A [ J, Y]+RM*DELTY 
END 

END, 

PROCEDURĘ PODELTAT(VAR DOZM, WSP DANE; 

N INTEGER,DT : REAL), 

VAR 

K KOORDYNATY; 

I INTEGER, 

BEGIN 

FOR K = X TO Y DO 
FOR I : =1 TO N DO 

DOZM[I, K) = DOZM(I, K)+WSP[I, K)# DT 

END; 

PROCEDURĘ WYNIKI(VAR XY ; DANE,N INTEGER); 

CONST 

YM = -2, O; 

DY = 44 O, 

XM = -2. 9; 

DX = 44 O; 

VAR 

I INTEGER, 

BEGIN 

FOR 1:^1 TO N DO 

PLOT ( ROUND((XY[I, X] XM)«DX), 

ROUND((XY(I,YJ-YM)#DY)) ( 

END; 


PROCEDURĘ WCZYTDANE(VAR N INTEGER,VAR M : MASY; 

VAR XY, V : DANE,VAR DT : REAL), 

VAR 

K KOORDYNATY, 

I : INTEGER; 

BEGIN 

WR ITELN('Masy - wielokrotność masy Ziemi. '); 

WRITELN('OdlegIości - w jedn. astronomicznych. "); 
WRITELN("Prędkośći - Km/s, "); 

WRITE("Podaj ilość obiektów "), 

READ(N); 

WRITELN("Wprowadzaj Kolejno dane."); 

FOR I:=1 TO N DO 
BEGIN 


WRITE(1:2, ' 
MCI]:=G*M(I) 
WR ITE('XO ' 
WR ITE("YO ': 
WRITE("VXO " 
WRITE("VYO ' 


masa "); 

READ(M[I)); 

6) ; 

READ(XY[I,X)); 

6) ; 

READ(XY(I, Y)); 

: 6) ; 

READ(V[I, X)), 

: 8) ; 

READ(V(I, Y)); 


V[I,X]; rVPRZ*V[I, X] ; 


V [ I,Y]:= VPRZ#V[I, Y) 
END, 


WRITE('Podaj delta t "), 
READ(DT) 


END; 


BEGIN 

WCZYTDANE(N t M,XY, V, DT); 

CLS; 

REPEAT 

BEGIN 

PRZYSPIESZENIA(A,XY,M,N); 
PODELTAT(V,A, N, DT) , 
PODELTAT(XY,V, N, DT), 
WYNIKI(XY, N) 

END 

UNTIL KEYPRESSED 
END. 







Dawno, dawno temu, gdy wszy¬ 
scy zachwycaliśmy się możli¬ 
wościami wszechobecnego 
Spectrum 48, nikt nie zwrócił 
uwagi na model 128 i następne. 
Bo tez nie było w mm prawie 
nic godnego uwagi. 

Prawie mc, czyli wszystko oprocz AY greka Z począt 
ku tkwił we wnętrzu Spectrum 128 niezauważony Potem 
niektórzy przypadkiem usłyszeli jego muzykę Powoli ro¬ 
dziła się ciekawość 

W eszcie wszystkich opanował szał Kiku elektroni¬ 
ków naraz opracowało schematy podłączenia AY-greką 
do starego Spectrum 48 i +. Odkryto, ze wiele gier po¬ 
siada programy obsługi generatora Zaczęto pisać pro¬ 
gramy demonstracyjne, z muzyką „wyciąganą” z gier 
Dotychczas słowa „Spectrum” i „muzyka” były przeciw¬ 
nościami, teraz stały się jednością 

Przedstawiamy tu program „The Musie Boxi28" firmy 
Melbourne House Został on napisany na przełom e lat 
1985/86 i jak dotąd jest najlepszym (!) z programów do 
pisania muzyk w Polsce Podobno z początk em 1990 
roku dotrzeć ma do nas „Musie Artist” Benna Daglisha, 
lecz jest to pod znakiem zapytania. 

Musie Box 128 napisany został na Spectrum 128 i 
dlatego przystosowano go do współpracy z magnetofo¬ 
nem mikrodra wami oraz RAM dyskiem (komendy 
SAVEl i LOAD!) W prosty sposob przerobie można jed¬ 
ną z tych opcji na współpracę ze stacją FDD 3000 (sy¬ 
stem operacyjny TOS), gdyż muzyka zajmuje pamięć 
nsedynamiezme i przydzielone jest na mą ok 4700 baj¬ 
tów 

Program składa się z trzech segmentów — Basicowe- 
go loadera bloku kodu i programu zarządzającego w Ba- 
sicu Wszystkie operacje sięgają korzeniami w Basic i 
posiadają odwołań a do kodu W n m wykonywane są je¬ 
dynie przesłania blokow pamięci, zapis nut i efektów 
specjalnych oraz odtwarzanie muzyk 

Po wczytaniu programu zgłasza się główne menu, po¬ 
przedzone czasem (w memodyfikowanych przez na¬ 
szych pseudo-hackerow sprowadzających nowości) mu¬ 
zyczką demonstracyjną 

Menu za w era pozycje 

1. LOADTUNE 

2. SAVE TUNE 

3. SYSTEM MENU 

4. ENVELOPES 

5. SET TEMPO 

6. EDIT MODĘ 

7. HELP 

Pierwsze dwie opcje służą do zapisu i odczytu kodu me¬ 
lodii z pamięci zewnętrznej Standardowo ustaw ony jest 
RAM dysk, więc po uruchomieniu programu na Spec¬ 
trum 48 i wybraniu jednej z tych opcji program zatrzyma 
się komunikatem „Nonsence in Basic” 


Trzecia opcja — SYSTEM MENU — powoduje zgło¬ 
szenie kolejnego menu 

1. SET PRESET NOISE VALUES 

2. SET CHANNEL LOOP PARAMETERS 

3. CHANGE SAVE/LOAD PERIPHERAL 

4. LISTEN TO TUNE 

5. COMPILE AND SAVE 

Opcja pierwsza pozwala na zmianę tzw efektów perku¬ 
syjnych, określonych tu jako „noise Wysw etlana jest 

lista aktualnie istn ejących obwiedni dźwięku oraz cha¬ 
rakterystyka poszczególnych uderzeń Klawisz 0 powo¬ 
duje powrot do głównego menu Klawisze 1—9 pozwala 
ą na zmianę odpowiednich uderzeń Należy podać czę¬ 
stotliwość i rodzaj obwiedni dźwięku 

Opcja druga pozwala na ustalenie miejsc zapętlema 
trzech kanałów oraz kanału efektów specjalnych Wyboru 
dokonuje się wciśnięciem klawisza 1—4 i podaniu nume¬ 
ru nuty, po której ma nastąpić zapętleme Klawisz 0 po¬ 
woduje powrót do głównego menu 

Opcja trzecia to ustalenie rodzaju pamięci, w której 
odkładana będzie przez SAVE i odczytywana przez 
LOAD melodia Standardowo jest to RAM dysk, możliwe 
jest wybranie mikrodrajwow lub taśmy 

Opcja czwarta odtwarza zawartą w pamięci muzykę, 
uwzględniając ustalone tempo Jest to odtwarzanie „rze¬ 
czywiste”, gdyż w trakcie me odbywa s ę obrobka obra¬ 
zu 

Opcja piąta pozwala na skompilowanie napisane me¬ 
lodii i nagranie jej w postaci bloku kodu maszynowego, 

pracującego samodzielnie Kompilacja nie jest dokony¬ 
wana, jeśli któryś z kanałów me był zapętlony 


f "joystick 

SERYICE 


GUN SHOT 
QUICK SHOT ( I-V ) 
VG~125 , CX 40 
200 X i inne 


* wym.\anja standardowych styków 
na rmkrołączmki 
*+ naprawa 


Zgłoszenia: Studio komputerowe SEZAM 

D.H, "SEZAM ' Hp. — czwartki 16 — 19' 


Rachunki Zniżki cen dla szkół f klubów 
Prowadzimy ekspedycją pocztową, Szczegółowe 
Informacje po nadesłaniu koperty zwrotneL 

\r> 



Korespondencja : JOYSTICK SERVICE 
02—770 Warszawa 130 skr poczt 102 



Wróćmy do głównego menu (zwykle powoduje to kla¬ 
wisz 0) Opcja ENVELOPES umożliwia zaprojektowanie 
kształtu ośmiu obw edm dźwięku, które wykorzystywane 
będą w edytorze melodii Zmiany kształtu po wciśnięciu 
numeru obw edm dokonuje się klawiszami kursora (5, 6, 
7, 8 z CAPS SHIFTEM), ustalenie — klawiszem ENTER 
Kolejna opcja — SET TEMPO — pozwala na ustalenie 
szybkości odtwarzania melodi Aktualna szybkość sym¬ 
bolizowana jest poziomym paskiem u dołu ekranu, zmia¬ 
na długości dokonywana jest klawiszami 5 i 8 Wciśnięcie 
innego klawisza powoduje przejście do edytora 

EDIT MODĘ to właśnie edytor Nie jest on „user-frien- 
dly", ale me wymagajmy zbyt wiele od programu sprzed 
pięciu lat 1 

Najbardziej zrozumiały będzie suchy opis klawiatury 
1, 2, 3, 4 — oktawy 

6 — powrot do menu 

7 — skasowanie zapisu melodii 
Q — odtworzeń e melodii 

W — ustalenie zapętlema w aktualnym kanale 
R — powrot na początek melodii 
T — zmiana kanału 

O, P — odtworzenie kolejnego taktu melodii 

A, S, F, G, H f K, L — nuty z krzyżykiem, klawisze jak 

na klawiaturze pianina 

CAPS SHIFT, CAPS LOCK, Z, X, C, V, B, N, M 

nuty zwykłe klaw sze jak na pianinie 
SYMBOL SHIFT + 0-0 — uderzenia perkusji 
Pewnym utrudnieniem dla posiadaczy Spectrum 48 
jest układ pianinopodobnej klawiatury Wykorzystując 
bowiem układ ze Spectrum 128 zaangażowano cały dol¬ 
ny rząd liter wraz z CAPS SHIFTEM kropką i CAPS LO- 
CKIEM 

Na ekranie edytora widać okno z dwiema pięcioliniami 
oraz okno informacyjne. Podawane są w mm kształty 
obwiedni w poszczególnych kanałach, głośność rowmez 
w poszczególnych kanałach, numer odgrywanej nuty z 
każdego kanału, numer oktawy i numer bieżącego kana¬ 
łu, nformacja o zap sie me będącym nutą ani uderze¬ 
niem (EFFECTS CH) oraz mały wskaźnik — głosnoscio- 
mierz 

Wciśnięcie jednego z klawiszy pseudoklawiatury piani¬ 
na powoduje przesunięcie w lewo pięciolinii oraz usta¬ 
wienie nowej nuty przy prawej krawędzi ekranu Cofnię¬ 
cie pięciolinii umożliwia klawisz DELETE (CAPS SHIFT i 
0), me jest on powtarzalny Wciśnięcie ENTER powoduje 
pozostawienie „pustego miejsca lub skasowanie istnie¬ 
jącej następnej nuty Wszystko to odnosi się do aktual¬ 
nego kanału, ktorego numer podawany jest w okienku 
STATE CHN: 

Wciśnięcie EXTENDED MODĘ (CAPS SHIFT i SYM¬ 
BOL SHIFT) powoduje możliwość wstawienia w zapis 
melodii specjalnych znaczników Przedtem wyświetlane 
est mim-menu w oknie systemowym, które udostępnia 
klawisze 

ENTER lub R — powrot do edytora 
E — ustaleme nowej obwiedni dla jednego lub wszyst¬ 
kich kanałów 

V — ustaleme głośności w jednym lub wszystkich ka 
nałach 

B — wstawienie „pustej nuty 

S — wstaw eme tzw międzydzwiękow („semitones ’), 
powodujących wibrowanie unoszenie lub opadanie 
zwykłych nut Podawana jest liczba „drgnięć i kieru¬ 
nek — góra lub doł 

Q — przeniesienie podanego fragmentu zapisu w mne 
miejsce z zachowaniem fragmentu zrodłowego 
Na koniec należy podkreślić najpoważniejszą — moim 
zdaniem — wadę Musie Boxa, tzn stałą długość nut 
Wszystkie są ósemkami' 

Można starać się symulować nuty dłuższe przez usta¬ 
wienie obok siebie jednakowych nut o stałej obwiedni, 
lub dostawianie nuty o obciętej obwiedni do nuty „całej 
Można wreszcie pokusie się o modyfikację programu 
Mimo, ze niezwykle trudno jest sklecic cos mile 
brzmiącego, powodzenie Musie Boxa me słabnie Z licz¬ 
nych programów muzycznych znany jest Spectrumow- 
com p Maciej Wroński, który przy pomocy Musie Boxa 
pisze profesjonalnie brzmiące utwory Niezorientowa¬ 
nym polecam programy demonstracyjne „DOBRANOC¬ 
KI” i „KOLĘDY" 

Marcin Przasnyski 
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Ceny mogą być wyższe ze względu na Inflację, a poza tym obowiązuje 
tzw. „przelicznik dolarowy ’ 9 



Giełda 

Bajtka 

Sklep 

Bajtka 

Komis 

Pewex 

RFN 

Baltona 

CSH 
i inne 

tys zł 

tys zł 

tys zł 

$ 

DM 

$ 

tys zł 

SINCLAIR 

ZX 81 

120 

120 

— 


— 

— 

— 

ZX Spectrum 48 

400 

350 

550 

— 

80 

— 

— 

ZX Spectrum + 

450 

550 

700 

— 

90 

— 

— 

Timex 2048 

400 

400 

400 

— 

— 

— 

240 

ZX Spectrum 128+ 

550 

— 

— 

— 

— 

— 

— 

ZX Spectrum 128+2 

— 

— 

— 

— 

140 

— 

— 

ZX Spectrum 128+3 

— 

— 

— 

— 

280 

— 

— 

drukarka 

Seikosha GP 50s 

— 

280 

— 

— 

— 

— 

— 

Interface Kempston 

25 

20 

— 

— 

10 

— 

93 

COMMODORE 

Commodore 64 

900 

650 

710 

199 

290 

155 

950 

VC 20 

200 

180 

— 

— 

— 

— 

— 

C 16 

300 

250 

— 

— 

80 

— 

— 

C 116 

350 

240 

— 

— 

70 

— 

— 

C Pius 4 

450 

450 

380 

— 

150 

— 

— 

C 128 

1100 

1100 

— 

— 

399 

— 

— 

C 128 D 

1900 

— 

— 

450 

820 

— 

— 

Amiga 500 

2300 

2900 

— 

— 

899 

— 

— 

Magnetofon 1531 

150 

170 

170 

48 

30 

225 

— 

Stacja dysków Oceanie 

700 

700 

— 

— 

320 

170 

— 

Stacja dysków 1571 

1000 

1000 

— 

199 

460 

— 

— 

Drukarka LCIOC 

1300 

1300 

— 

— 

260 

230 

— 

ATARI 

Atari 800 XL 

600 

700 

470 

— 

160 

— 

— 

Atari 65 XE 

700 

650 

520 

127 

— 

— 

— 

Atari 130 XE 

800 

850 

— 

199 

220 

— 

— 

Atari 520 ST 

2000 

2000 

— 

— 

— 

— 

— 

Atari 1040 ST 

— 

— 

— 

— 

1140 

— 

— 

Magnetofon XC 12 

140 

140 

— 

36 

40 

— 

— 

Stacja dysków 1050 

900 

900 

750 

185 

300 

— 

— 

Stacja dysków 520 STM 

— 

700 

— 

— 

— 

— 

— 

Drukarka 1029 

400 

650 

— 

— 

— 

— 

— 

AMSTRAD 

Amstrad 464 mono 

900 

900 

— 

— 

350 

— 

- 

Amstrad 664 mono 

— 

1200 

— 

— 

— 

— 

- 

Amstrad 6128 mono 

— 

— 

— 

— 

670 

— 

— 

Amstrad PCW 8256 

— 

— 

— 

— 

— 

— 

— 

Amstrad PCW 8512 

— 

— 

— 

— 

— 

— 

— 

Amstrad PCW 9512 

— 

— 

— 

— 

— 

— 

— 

Stacja dysków do 464 

— 

— 

— 

— 

380 

— 

— 

SHARP 

Sharp MZ 700 

— 

360 

— 

— 

— 

— 

I 

Sharp MZ 800 

— 

420 

— 

— 

— 

— 

— 

Dyskietki 5 25 cala 

2 

2-2 5 

3 

1 

07 

11 

4-9 

Dysk etki 3 5 cala 

7.5 

7 5-9 

7-9 

— 

5 

2.5 

9-10 

Dyskietki 3 cale 

11 

— 

— 

— 

6 

3 

10 

Joystick 

21 

16 26 

20-30 

5 

10 

10 

14 

Monitor Neptun 

60 

80 

— 

— 

— 

— 

68 




Krzysztof Zając, lat 17 Posiada 
Commodore C 64 ze stację dysków 
1541 II. Dysponuje zestawem 1600 
programów, w tym programy muzycz¬ 
ne, gry oraz graficzne. Proponuje wy¬ 
mianę najnowszych programów. Ad¬ 
res: 43—316 Bielsko-Biała, ul. Rozto¬ 
ki 7/24 

Grzegorz Zakolski, posiada Atari 800 

XL, stację dysków LDW 2000, duży 
zbiór instrukcji i około 900 progra¬ 
mów. Zainteresowany jest wykorzy¬ 
staniem różnych urządzeń peryferyj¬ 
nych do współpracy z komputerem 
Pragnie nawiązać korespondencję w 
celu wymiany doświadczeń, literatury 
oraz programów Adres: 06-100 Puł¬ 
tusk, ul. Armii Czerwonej 5 

mgr Juliusz Kobylanka — nauczy¬ 
ciel, posiada mikrokomputer Meritum 
I. Nawięze kontakt w celu wymiany 
programów Adres 44-244 Żory, os 
Sikorskiego, Szkoła Podstawowa 14 

Janusz German prosi o kontakt po¬ 
siadaczy Atari XL/XE z przerobionym 
magnetofonem (TURBO 2000, AST) 

w celu wymiany oprogramowania Ad ¬ 
res 83 130 Pelplin, u! M ck lewicza 7 

Maciej Węgorkiewicz, lat 14 Posia¬ 
da Amstrada CPC464 Pragnie nawią- 
zac kontakt z użytkownikami tego 
komputera w celu wymiany oprogra¬ 
mowania Adres 27-400 Ostrowiec 
Sw oś. Słoneczne 46/16 

Marek Laszczka, lat 14 Jest świeżo 

upieczony m posiadaczem Atari 

520STFM z monitorem monochroma¬ 
tycznym SM 125 Prosi o kontakt w 
celu wymiany doświadczeń oraz opro¬ 
gramowania Adres 01 957 Warsza¬ 
wa, ul. Szegedynska 5/14 

Szymon Wiaderski jest posiadaczem 
T mexa 2048, oraz około 100 gier i 
programów użytkowych Proponuje 
wymianę programów, literatury, opi¬ 
sów gier Adres: 82-300 Elbląg, ul 22 
Lipca 13/1/6 

Agnieszka Bukiewicz, iat 17 Posia 

da mikrokomputer Meritum, chętnie 


nawięże kontakt z posiadaczami tego 
typu komputera w celu wymiany pro¬ 
gramów i literatury Adres: 59-800 Lu¬ 
bań SI., uli. Wojska Polskiego 44 , b’7 
30 

Tomasz Roszczyk, posiada Atari 520 
STFM z podwójną stacją dysków Na¬ 
wiąże kontakt z posiadaczami ST. Ad¬ 
res: 41-706 Ruda Śląska, ul. Poniato¬ 
wskiego 19 

Władimir Timofeew, iat 25 Posiada 

mikrokomputer Atari 65 XE z magne¬ 
tofonem Oprogramowanie około 100 
gier Nawiąże korespondencję z po¬ 
siadaczami Atari w celu wymiany gier 
Korespondencja w języku polskim lub 
angielskim Adres 195009 Leningrad, 
ul Aszenalnaja 70 k 3 ZSRR 

Zofia Filus, uczennica lat 14 Posiada 
mikrokomputer Thomson TO 07 oraz 
cartrige z wersją Basic 10 Prosi po¬ 
siadaczy gier do tego komputera o 
kontakt Adres 41 902 Bytom ul. 
Grottgera 22 b/4 

Tomasz Kruklis, posiada Atari 800 
XE magnetofon XC 12 programujący 
w „AS' (Atari Super Turbo Chętnie 
naw ąze kontakt z użytkownikami tego 
systemu w celu wymiany oprogramo¬ 
wania oraz doświadczeń Adres 11- 
400 Kętrzyn, ul Piastowska 7/37 

Artur Kuliński, lat 17 Posiada Atari 
65 XE, stację dysków LDW 2000 oraz 
magnetofon XC 12 Proponuje wymia¬ 
nę oprogramowania, dosw adczen i li¬ 
teratury "Adres 37 600 Lubaczów, ul 
Kościuszki 85 

Aleksander Walentynowicz Roma¬ 
now, fiz k, lat 31 Pos ada ZX Spec¬ 
trum 128 + , kilka własnoręcznych in¬ 
terfejsów oraz stacje dykow w syste¬ 
mie Beta 128 (TR-DOS ver 5 01). 
Prosi posiadaczy podobnych syste¬ 
mów operacyjnych o kontakt w celu 
wymiany doświadczeń i oprogramo¬ 
wania Korespondencja w języku po - 
skim, angielskim, ukraińskim lub ro¬ 
syjskim Adres: CCCP, 252033, Kijew 
— 33, ul. Władimirskaja 83 m 6. 



Wojewódzkie Przedsiębiorstwo 
Handlu Wewnętrznego 
Oddział w Tychach 

VIDEOBIT 

43-100 Tychy, A!. ZMP 77 
tel. 276975 

poleca między innymi 

— sprzęt komputerowy 

Atari • Commodore • Amstrad • 
• IBM PC XT/AT/PS 2 

— drukarki STAR, EPSON AMSTRAD 

— Sprzęt audiowizualny 

— magnetowidy 

— OTV PAL/SECAM 

— Videoskopy 

— kamery 

— anteny satelitarne 

— aparaturę badawczo-naukową 

Udzielamy gwarancji, prowadzimy naprawy 
pogwarancyjne. Zapewniamy o atrakcyjnych 
cenach 

(SB 18) 


28 BAJTEK 12/89 










































































































































Na listy Czytelników 
odpowiada Dominik Falkowski 


SPRZĘŻENIE ZWROTNE 



Mam komputer ZX Spectrum 16 
KB. N/estety, tyle pamięci to za 
mało, żeby wgrać jakiś porządny 
program, grę. Słyszałem, że istnie¬ 
ją przystawki rozszerzające pa¬ 
mięć. Jak je zdobyć? 

Seweryn Siesicki 
Dębno Lubuskie 

Spectrum „szesnastka rzeczywiście 
jest bardzo ograniczony w możliwoś¬ 
ciach ze wzg ędu na małą pamięć Z 
reguły jednak na płytce znajduje się 
miejsce na dołożenie kości pamięci 
zwiększających ją do 48 KB Zabieg 
ten należy polecic doświadczonemu 
elektronikowi, obeznanemu z wnę 
trzem Spectrum Kości pamięci do¬ 
stępne są na giełdach i czasem w 
sklepach elektronicznych 


nie 
na 

wybór modelu. 48 raczej odpada ze 
względu na klawiaturę. Plus jest 
lepszy, ale ma tylko 48 KB pamięci. 
Model 128 jest wart zainteresowa¬ 
nia, ale istnieją też i modele +2 i 
+3. Bardzo proszę o pomoc. 

Tadeusz Kipisz 
Grójec 

Podstawową rzeczą przy wyborze 
komputera, to zadać sobie pytanie, do 
czego chce się go używać Jeśli zde¬ 
cydowany na kupno Spectrum, to bę¬ 
dzie Ci on służył prawdopobn e do 
gier, muzyki i kilku drobnych rzeczy, 
do których może służyć każdy kom¬ 
puter 

Z tego, co piszesz wnioskuję, że 
chciałbyś sporą pamięć, dobrą klawia¬ 
turę, a nawet stacje dysków Optymal¬ 
nym rozwiązaniem wydaje m? się kup¬ 
no Spectrum Plus (ok. 80 $), zamon¬ 
towanie w mm AY-greka i interfejsu 
Kempston do joysticka (ok 15 $), roz¬ 
szerzenie pamięci do 80 KB (cena za¬ 
leżna od przypadku, czasem wystar¬ 
czy jeden opornik, czasem trzeba do¬ 
łożyć kości), kupno stacji dysków FDD 
3000. Cena me powinna przekroczyć 
200$ a zatem taki jest pod każdym 
względem zadowalający 

■■■■ 


Jak podłączyć TV do ZX Spectrum 
lub Commodore 16? Jakie zastoso¬ 
wać kable i złącza? 

Darek Slubowski 
Szczecin 

Zarowno Spectrum jak i Commodore 
16 wyposażone są w modulatory tele¬ 
wizyjne Znaczy to, ze mogą genero¬ 
wać sygnał wizyjny do odtworzenia na 
ekranie telewizora Do połączenia wy¬ 
starczy koncentryczny kabel anteno¬ 
wy z takimi końcówkami Telewizor 
powinien posiadać zakres UKF (21 — 
60). 


Mam pewne pytanie, a jnianowicie 
do czego służy program IBM 2, któ¬ 
ry kupiłem na giełdzie? 

Krzysztof Węglarz 
Warszawa 

Program IBM 2 jest to napisany przez 
naszego redakcyjnego kolegę, Macie¬ 
ja Pietrasia symulator IBM-a. Zabawa 
tym programem pozwala nieco przy¬ 
bliżyć architekturę systemu operacyj¬ 
nego DOS, nakładek GEM i Norton 
Commander, prace z twardym dys 
kiem. Tak naprawdę, to IBM 2 służy 
do niczego, a tylko naśladuje widocz¬ 
ne na ekranie efekty komputera IBM 
Można jednak nieźle bawić się przebi¬ 
jając się przez kolejne pomysły auto¬ 
ra, a liczba ich zawarta w jednym pro¬ 
gramie jest ogromna. 


Jestem posiadaczem komputera 
ZX Spectrum i mam kilka pytań: 

1. W jaki sposob przesyłane są 
bajty z magnetofonu do kompu¬ 
tera? 

2. W jaki sposób ATARI SUPER 
TURBO przyspiesza wczytywa¬ 
nie? 

3. Czy możliwe jest zrealizowanie 
TURBO na Spectrum? 

Marcin Chmielą 
Kraków 

1 Transmisja danych z magnetofonu 
do komputera odbywa się poprzez 
dwuzyłowy kabel Informacja zapisa¬ 
na jest na taśmie w postaci pisków 
Analiza takich sygnałów ukaże dwa 
poziomy napięcia w ścisłe określonej 
konfiguracji czasowej. System kom¬ 
putera potrafi identyfikować zmiany 
napięcia podawane na wejście jako je¬ 
dnostki informacji układające się w 
bajty. Myślę, ze o to chodziło Cs w tym 
pytaniu. 

2. S )Osob, w jaki ATARI SUPER 
TURBO przyspiesza wczytywanie jest 
tajemnicą ftrmy. Z grubsza polega to 
na zmianie sposobu zapisu informacji 
na taśmie Oryginalny system to bloki 
po 128 bajtów, każdy z sumą kontrol¬ 
ną Prędkość ok 600 bodow to iście 
żółwie tempo. Po modyfikacji, nowy 
system zapisu jest mniej rozrzutny i tę 
samą informację zapisuje na mniej¬ 
szym odcinku taśmy. 

3. TURBO na Spectrum istnieje w kil¬ 
ku wersjach. Jedną z nich jest nakład¬ 
ka na program COPY-COPY, lecz słu¬ 
żąca tylko do archiwizacji programów 
na taśmie. Druga, to tzw. Szybka Pa¬ 
mięć Taśmowa — program zmieniają¬ 
cy system zapisu na szybszy Dopu¬ 
szcza różne prędkości, optymalna to 
2—3 razy szybciej niz normalnie. 
Trzecia wersja TURBO to wbudowany 
w interfejs MASTERFACE moduł ze 
zmodyfikowanymi procedurami tran¬ 
smisji (ok. 2 razy szybciej). Wreszcie 
czwarta wersja to TURBO COM- 
PRESS COPY autorstwa anonimowe ¬ 
go Kato, skracający czas wczytywania 
o połowę i me wymagający procedury 
ładującej. Czasem używane są też sy¬ 
stemy polegające na przeróbce mag ¬ 
netofonu, współpracujące z jedną z 
podanych wcześniej wersj TURBO 
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CARDRIDGE 

’DIGIMUZ’ 

ROZSZERZENIE MUZYCZNE DLA 
KOMPUTERÓW DOMOWYCH 
COMMODORE 1 6 
COMMODORE116 
COMMODORE PLUS/4 

TO PRZEDE WSZYSTKIM: 

— NIEPORÓWNYWALNIE WIĘK¬ 
SZE MOŻLIWOŚCI MUZYCZ¬ 
NE KOMPUTERA: RAZEM 5 
GENERATORÓW TONU MO¬ 
ŻLIWOŚĆ EFEKTÓW STERE¬ 
OFONICZNYCH, 

— DODATKOWY 8-BITOWY 
PORT RÓWNOLEGŁY DLA 
UŻYTKOWNIKA (MOŻLIWOŚĆ 
DOŁĄCZENIA DRUKARKI 
STAR), 

— ROZSZERZENIE FUNKCJI JĘ¬ 
ZYKA BASIC DLA PROGRA¬ 
MOWANIA MUZYKI; 

A PONADTO W ZALEŻNOŚCI OD 

WERSJI: 

— PRZYŚPIESZENIE TRANSMIS¬ 
JI DANYCH DLA PAMIĘCI 
TAŚMOWYCH I DYSKOWYCH 

— PORTY ANALOGOWE, 

— DODATKOWE PAMIĘCI. 

PROSTA INSTALACJA W GNIEŹ¬ 
DZI E MEMORY EXPANSlON’; DO¬ 
STĘP Z POZIOMU JĘZYKA BASIC 

-*****-*-#*■*■■#.#■ 

JEDYNY PRODUCENT I DYSTRY¬ 
BUTOR: 

SPÓŁDZIELCZE PRZEDSIĘBIORST¬ 
WO USŁUGOWO-PRODUKCYJNE 

'ftlGftO* 

Sp. z o.o. (j.g.u.) 

40-036 KATOWICE ul. Plebiscytowa 

32 tel. 512-093 

(SB 73) 


ATARI — SPECTRUM — COMMO¬ 
DORE 

— gry, programy użytkowe, eduka¬ 
cyjne 

— niskie ceny, najkrótsze terminy, 
gwarancja 

— wysyłka na cały kraj, katalogi — 
gratis 

STUDIO KOMPUTEROWE „ACE” 

P-16, 07-202 WYSZKÓW 4 

(SB 76) 


ATARI XE, XL, ST SPECTRUM Tl- 
MEX „HÓBBY” Computer 

S D H „ZENIT” 40 954 KATOWI¬ 
CE RYNEK 12 

GRY I PROGRAMY NA KASETACH 
I DYSKIETKACH 

WY POZYCZ ANIE N AGR YWAN! E 

GOTOWE ZESTAWY 
Ceny konkurencyjne, jakość gwa¬ 
rantowana Katalogi i opisy za zali¬ 
czeniem pocztowym G-161 


Sprzedam Amstrada 6128; tel 
28 70 67 (Warszawa) 


D 213 


PROGRAMY EDUKACYJNE DLA 
MIKROKOMPUTERÓW 
ZX SPECTRUM, TIMEX, JUNIOR 
OFERUJE , KOMPRED ” ul. Wit¬ 
kiewicza 15/12 59-220 LEGNICA 

D-180/1 


Naprawa komputerów 
Perzynski Warszawa - 
91 


24 93 
D 179 



Jeżeli: 

— potrafisz pisać programy komputerowe 

— chcesz pisać programy na zamówienie 

— uwazasz, ze Twoje programy będą przydatne lub popularne 

— chcesz chronić je przed piratami 

— myslisz, że programowanie to może być dobry interes 

— masz kłopoty z dystrybucją 

— chcesz podjąć się rozpowszechniania (wypożyczalnie) 

— potrzebujesz programu dostosowanego do własnych potrzeb 

— chcesz legalnie nabyć dobrą, polskę grę 

— masz dobry pomysł 

— opracowałeś nowe rozwiązania sprzętowe 

— chcesz z nami współpracować 

— chciałbyś być współredaktorem pisma komputerowego 
napisz, zadzwoń, skontaktuj się z nami!!! 

nasz adres: 

SPCKTRR Ud 
21 -422 Stanin 
tel. 11-70 

(SB 77) 
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SERWIS KOMPUTERÓW 



40-164 Katowice ul. Modrzewiowa 24/33 
poleca naprawy: 

• ATARI 600, 800, 65, 130 XL,XE 

• COMMODORE 16, 116, +4, 64, 128 

• DISC DRIVE 1541, 1570, 1571. 1050 

• MAGNETOFONY COMMODORE 

• DRUKARKI 
godz. 9-11, 16-18 


(SB 30) 
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ELEKTRONIK 


PROFEUOM EERUIE KDMPUTECOU 

KDtDUICE-D5UUlt050 Ul D55DU5klEQD 28 tEl 549-779 


Poleca usługi w zakresie naprawy komputerów: 

IBM PC XT, AT, 386, 

COMMODORE plus 4, 16, 64, 116, 128, AMIGA, 

COLT, 

ATARI 600, 800, 65,130, 520, SPECTRUM, 

magnetofony, sterowniki, drukarki, monitory, zasila¬ 
cze. 

Skupuje elementy elektroniczne i sprzęt. 

ZAPRASZAMY OD 8.00—16.00 PONIEDZIAŁKI 
10.00—18.00 

K-269 


TOMBAT wypożyczALNiA 

jK xlatarixe JSl omba 

yiV XL ATARI XE 


— gry i programy użytkowe 

— co piąty program gratis 

— inne bonifikaty 

— opisy gier i instrukcje 

— pomoc dla początkujących 

— wysyłka na cały kraj 

— katalog gratis 


Nasz adres: 

ul. Magistracka 27 m 26 
01*413 Warszawa 

Tel. 363-078 godz. 12-20 
Zapraszamy! 


SB-12 


Agencyjny Zakład Usługowy SPHW 
poleca usługi w zakresie 

— serws komputerów SPECTRUM, 
C-64, TIMEX, XT, AT, rozszerzanie 
pamięci 

— przestra/ame PAL-SECAM 

— wejścia monitorowe TV 
Warszawa ul. Puławska 102 
tel 44-87-89 

czynny 12.00—19,00 
Rachunki, gwarancja 
ZAPRASZAMY 

D-114 


ZX SPECTRUM, TIMEX ATARI 


programy użytkowe, edukacyjne, 

gry 

0 programy dla rzemiosła (receptury, 
kalkulacje, remanenty) 

• instrukcje do programów 

0 informacje po nadesłaniu koperty 
zwrotnej ze znaczkiem 

• wysyłka na cały kraj — rachunki 
„P.K.T.S.” Studio Komputerowe 
00-103 Warszawa 

ul. Królewska 43 m 25 (SB 59) 


apr 

IOC 


MODORE IBM, SPECTRUM oraz 


Naprawa komputerów ATARI, COM 

“E< 

Warszawa tel 
D-84 


urządzeń peryferyjnych 
22-07 85 


MOZGOPROCESOR! — rewelacyj¬ 
ną polską grę przygodową dla ZX 
Spectrum (program + kaseta + opis 
3100 zł) otrzymasz pisząc COMPU¬ 
TER ADVENTURE STUDIO, Bochnia 
32-700 ul Kazimierza Wielkiego 37/45 

(SB 20) 


COMPUTER ATASERW 


SEFWICE 


+ 2 , 




MS elektronik 
naprawy komputerów 
Spectrum 48k, +, 128 
+ 3 

Amstrad- Schneider 
Sharp 

Drukarki, Interfejsy 
Wyjścia monitorowe 
Czynne: od 9 00—16 00 
MSelektromk Legionowa 23, 
00 343 Warszawa 
Dojazd 105, 305, F (jelonki) 
tel 37-76 65. 

(K 118) 


ATARI 


TURBO 


2000 F 


Nowy system transmisji da¬ 
nych z magnetofonem przys¬ 
pieszony do 6700 bodów 

Komplet 

— cartridge 

— kaseta z 5 programami kopiu¬ 
jącymi 

— przeróbka magnetofonu 

— 12 m-cy gwarancji za 29 000 zł 
oraz interfejs do standardowe¬ 
go magnetofonu zą 22 000 zf 

oferuje firma MUEL ul Cząstkow- 
ska 30, 01 -678 Warszawa tel 33- 
40 91 

D-121 


ATARI 800 XL 


65 XE, 130 XE 


Sprzedaż wysyłkowa 
gier i programów użytkowych 
na kasetach i dyskietkach 
Również w systemie TURBO 
2000 

Wszystkie nowości!!! 

Instrukcje i literatura. 

Dla zainteresowanych rachunki. 


ANWIKOL 


03-721 Warszawa ul. Jagielons- 
ka 3/28 

(SB 74) 


KOMPUTEROWE TESTY PRZYGOTO¬ 
WUJĄCE DO EGZAMINÓW WSTĘP 
NYCH NA MEDYCYNĘ DLA ZX SPEC¬ 
TRUM, TIMEX JUNIOR 
POLECA „KOMPRED’ Witkiewicza 
15/12 59-220 LEGNICA 

D-180/2 


ZX Spectrum 

SOUND-trojkanatowy, stereofoni¬ 
czny, przelotowy interfejs muzyczny 

KEMPSTON, SINCLAIR 

Błyskawiczna wysyłka pocztą. 
Ekspresowe naprawy klawiatur. 
NiKUE ul. Meissnera 14 m 1 
03 982 Warszawa tel 15 93-38 w 
godzinach 18-20 D-191 



1 TURBO DOS—wspaniały DOS 
na kartridżu 

2 TOP DR!VE—do stacji 1050, 
LDW 2000, CALIFORNIA 
samodzielny montaż —wysyłkowo 

(rec INFORMIK 111/88) 

3 INTERFEJS CENTRONIKS 

4 ROZSZERZENIA PAMIĘCI 

5 BASIC XE—kartridż 

6 TURBO DOS + BUG65—kar¬ 
tridż 

12 miesięcy gwarancji Informacje 
i zamówienia telefonicznie (wtorek 
8—12, środa, czwartek 16—18) i 
listownie po otrzymaniu koperty 

zwrotne 

K—236 


JOYSTICKI do Atari 
Commodore, Spectrum, 
Amstrad precyzyjny me¬ 
chanizm specjalne styki 
9800,- zł, 6 m-cy gwarancja 
interface do Spectrum 


Wysyłka natychmiastowa 
za zaliczeniem pocztowym 


Dla instytucji rachunki płat¬ 
ne przelewem 


ELEKTROMECHANIKA 


ul. Cegielniania 17 
32-410 DOBCZYCE 


G-12S 


ATARI ST, AMIGA 

Tylko najlepsze programy 

INSTRUKCJE!!! 

własne unikalne opracowania 
Największy wybór w Polsce 
Fantazy, Adventure Club-swiato- 
we hity 

porady, wskazówki, opisy, wymia¬ 
na doświadczeń 

„KOMPUTER STUDIO” 04-202 
Warszawa, ul. Marsa 6 tel 15 42- 

20 D-201 


Atari XL/XE najnowsze progra¬ 
my, instrukcje oraz literaturę wy¬ 
syła studio Mikrobst Okazja, 
szybko i tamo Marek Kąca, Mal- 
borska 6/160, 03-286 Warszawa 

(SB 75) 


Atari XL/XE Napiszę każdy pro¬ 
gram na zamówienie (Basic, As- 
sembier), odbezpieczę dyski, 
programy kasetowe Przemysław 
Kucharzewski, Plac Obroncow 
Pokoju 14/8, 66-200 Świebo¬ 
dzin, tel. 24382 

(SB 72) 


43-100 TYCHY ul. Lencewieza 
46/3 

tel. 27 69 66 

rozwiązania 

sprzętowe 

do ATARI XL/XE: 


]; ł : 2 

















































































































































IIIIIIIIIIIIIIIIIIIIIITYLKO DLA 





lześć Maluchy! 

W programach, które pisaliś¬ 
my dotychczas rozkazy zapisy¬ 
wanie (SAVE) i odczytywania 
(LOAD) stosowaliśmy jedynie 
w trybie bezpośrednim. Można 
jednakże stosować je również 
wewnątrz programów. Przyno¬ 
si to często bardzo interesujące 
efekty. 

Na początek zbudujemy komputerowy notes z ad 
resami przyjaciół Będzie ssę on sam zapisywał 

10 PRINT "Czytanie notesu.GOTO 100” 

20 PRINT ”Dopisanie adresu.GOTO 200” 

30 PRINT "Zapis na magnetofon ... GOTO 300” 

40 GOTO 500 

100 PRINT 1; "Zuzanka”, "Czekoladowa 7” 

110 PRINT 2; Magdalena”, "Ananasa 1 m. 9” 
120 PRINT 3; "Kuba”, ”Karmelkowska 2/6” 

130 PRINT 4; ”Romek”, ”AI. Budyniu 13” 

140 PRINT 5; "Jurek Z.”, "Pod Gruszkami 5” 


GOTO 200 
100 PRINT 1; 
110 PRINT 2; 
120 PRINT 3; 
130 PRINT 4; 
140 PRINT 5; 


>ENTER/RETURN< 

Zuzanka”, "Czekoladowa 7” 
Magdalena”, "Ananasa 1 m. 9” 
Kuba”, "Karmelkowska 2/6” 
Romek”, ”AI. Budyniu 13” 

Jurek Z.”, ”Pod Gruszkami 5” 
Ukazuje się nam fragment programu zawierający 
adresy Możemy uzupełnić program 
150 PRINT 6- ”Wojtek”, "Kwiatkowa 135” 

>ENTER/RETURN< 
Przeglądnijmy jszcze raz nasz notes 
GOT0100 ENTER/RETURN 

1 Zuzanka Czekoladowa 7 

2 Magdalena Ananasa 1 m. 9 

3 Kuba Karmelkowska 2/6 

4 Romek Al, Budyniu 13 

5 Jurek Z. Pod Gruszkami 5 

6 Wojtek Kwiatkowa 135 

Czytanie notesu.GOTO 100 

Dopisanie adresu .... GOTO 200 
Zapis na magnetofon .... GOTO 300 

i uzupełniony zapiszmy na kasetę 
GOTO 300 >ENTER/RETURN< 


199 GOTO 10 

200 LIST 100-190 
300 SAVE "notes" 

310 PRINT "Koniec zapisywania” 

320 GOTO 10 
500: 

Po uruchomieniu programu ukaże się następujący 
zestaw możliwości: 

RUN >ENTER/RETURN< 

Czytanie notesu.GOTO 100 

Dopisanie adresu.GOTO 200 

Zapis na magnetofon ... GOTO 300 

Jeśli chcemy wybrać którąś z funkcji, wpisujemy roz¬ 
kaz GOTO z odpowiednim numerem linii. Wybierzmy 
na przykład „czytanie notesu” 

GOT0100 >ENTER/RETURN< 

1 Zuzanka Czekoladowa 7 

2 Magdalena Ananasa 1 m. 9 

3 Kuba Karmelkowska 2/6 

4 Romek Al. Budyniu 13 

5 Jurek Z. Pod Gruszkami 5 

Czytanie notesu.GOTO 100 

Dopisanie adresu.GOTO 200 

Zapis na magnetofon.GOTO 300 

Zestaw poleceń, czyli tak zwane menu (czytaj 
meni) drukowane jest ponownie. Po przeczytaniu od¬ 
powiedniej informacji z notesu możemy więc bez 
problemu wybrać następną funkcję — „dopisanie ad¬ 
resu”. 


Press REC&PLAY on the tape than any key: 

Sprawdźmy jeszcze, czy w magnetofonie znajduje 

się właściwa kaseta i wykonajmy polecenie. Po chwili 
na ekranie ukaże się komunkat: 

Koniec zapisywania 

Czytanie notesu ... GOTO 100 

Dopisanie adresu ... GOTO 200 

Zapis na magnetofon ... GOTO 300 

Jeszcze bardziej interesujące efekty daje zastoso¬ 
wanie w programie rozkazu LOAD Możemy na przy¬ 
kład napisać kilka programów które będę się wczyty¬ 
wały kolejno. W tej samej kolejności powinny być za¬ 
pisane na taśmie. Skorzystamy ze wspaniałych wier¬ 
szy Jana Brzechwy 

REMI *********** P R ' !l, ':)Qf' i 1 ************************ 

10 PRINT ”!-!” 

20 PRINT ”! ZOO !” 

30 PRINT ”! Jana Brzechwy !” 

40 PRINT ”!-!” 

50 PRINT ”!-!” 

60 PRINT ”!-!” 

70 PRINT 

80 PRINT ”Po ukazaniu się kursora” 

90 PRINT ”Wpisz RUN i nacisnij 
>ENTER/RETURN< 

100 LOAD "wierszl” 

SAVE ”ZOO” >ENTER/RETURN 

Press REC& PLAY on the tape than any key: 

Saving "ZOO” 


PRZEDSZKOLAKÓW 

I drugi program 

5 REM *********** Program 2 *********** 

10 PRINT 

20 PRINT "Małpy skaczą niedościgle,” 

30 PRINT "Małpy robią małpie figle,” 

40 PRINT "Niech pan spojrzy na pawiana” 

50 PRINT ”Co za małpa, proszę pana.” 

60 PRINT 

70 PRINT ”Po ukazaniu się kursora” 

80 PRINT "Wpisz RUN i nacisnij 
>ENTER/RETURN< 

90 LOAD ”wiersz3” 

SAVE ”wiersz2” >ENTER/RETURN 

Press REC&PLAY on the tape than any key: 
Saving „wiersz2” 

A teraz trzeci. 

; :K *********** p rQ g ram 1 *********** 

10 PRINT 

20 PRINT "Rudy ojciec, rudy dziadek,” 

30 PRINT "Rudy ogon to moj spadek ” 

40 PRINT "A ja jestem rudy lis.” 

50 PRINT "Ruszaj stąd, bo będę gryzł.” 

60 PRINT 

70 PRINT ”Po ukazaniu się kursora" 

80 PRINT "Wpisz RUN i nacisnij 
>ENTER/RETURN ” 

90 LOAD ”wiersz3” 

SAVE ”wiersz2” >ENTER/RETURN< 

Press REC&PLAY on the tape than any key: 
Savmg ”wiersz2” 

W ten sposob możemy zapisać całe ZOO Jana 
Brzechwy Następnie cofnijmy taśmę, wczytajmy i 
uruchommy pierwszy program 
LOAD "ZOO” >ENTER/RETURN< 

Press Play on the tape than any key 
Loading ”ZOO” 

RUN >ENTER/RETURN< 


! ZOO ! 

! Jana Brzechwy ! 

!-! 

! ! 

! ! 

Po ukazaniu się kursora 

Wpisz RUN i nacisnij >ENTER/RETURN< 

Press PLAY on the tape than any key: 

Loading ”Wiersz1” 

RUN >ENTER/RETURN 

Małpy skaczą niedościgle, 

Małpy robią małpie figle, 

Niech pan spojrzy na pawiana 
Co za małpa, proszę pana. 

Po ukazaniu się kursora 

Wpisz RUN i nacisnij >ENTER/RETURN< 

Press PLAY on the tape than any key: 

Loading ”Wiersz2" 

RUN >ENTER/RETURN< 

Rudy ojciec, rudy dziadek, 

Rudy ogon to moj spadek, 

A ja jestem rudy lis. 

Ruszaj stąd, bo będę gryzł. 

Po ukazaniu się kursora 

Wpisz RUN i nacisnij >ENTER/RETURN< 

Press PLAY on the tape than any key: 

Loading "Wiersz 3” 

I tak dalej.. 

Przyjemnej lektury życzy Wam 

Romek 


ZflPISYUMNK I ODCZYTYWANI* 
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Input 1 



ją wejścia bramki, natomiast trzeci laser oświet¬ 
la wyjście. 

W stanie podstawowym, gdy żadne z wejść 
nie jest oświetlone (logiczne zera), swobodne 
elektrony każdego z donorow znajdują się w ob¬ 
szarze akceptorów w pobliżu wyjścia bramki. 
Światło przechodzące przez tę część molekuły 
nie ulega absorbeji (logiczna jedynka na wyjś¬ 
ciu). Oświetlenie obu odnog wejściowych (logi¬ 
czne jedynki) powoduje, że oba elektrony węd¬ 
rują w obszar donorów zmieniając własności 
absorbćyjne ęzyjki wyjściowej. W tym niestabil¬ 
nym stanie .przejściowym wyjście pochłąnia 
światło laserowe o określonej długości. Sytuac¬ 
ja ta odpowiada logicznemu zeru na wyjściu 
bramki. 

Na rysunku 2 przedstawiono spr ężenie pro¬ 
totypowego urządzenia elektroniki molekularnej 
ze światem zewnętrznym. Urządzenie to, posia- 
dające 4 wejścia i 4 wyjścia, jest oświetlane oś¬ 
mioma laserami o rożnych długościach fali. 
Przechodzące światło, po dekompozycji w pryz¬ 
macie, jest analizowane przez rząd światłoczu¬ 
łych diod, z których każda reaguje na inny kolor 
(długość fali). Ponieważ padający promień 
światła ma większy rozmiar niż same cząsteczki, 
lokalizacja właściwej bramki i sygnału do niej 
przyłożonego jest określona nie przestrzennie, 
ale przez odrębne własności absorbćyjne roż¬ 
nych fragmentów molekuł. 


Rys. 1. Molekularna bramka typu NAND sterowana światłem laserowym. Ma ona rozmiar rzędu 4 nm i jest 
10000 razy szybsza od jej krzemowego odpowiednika. Składa się z dwóch wejsc (Input 1, Input 2) i jednego 
wyjścia (Óutput). Łańcuch odpowiadający każdemu z wejsc zawiera trzy części: obszar donora, barierę t ob¬ 
szar akceptora. 
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Już parę lat femu stwier¬ 
dzono) że gdyby postęp w 
dziedzinie motoryzacji do¬ 
równywał , postępowi w 
elektronice, to najnowszy 
model Rólls-Royce’a kosz¬ 
towałby trzy dolary i na 
trasie Ziemia—Księżyc 
spalałby od 4 do 5 litrów 
paliwa. 

I rzeczywiście, pierwsze komputery budowa¬ 
ne na lampach elektronowych zajmowały dużej 
wielkości pomieszczenie, do ich zasilania po¬ 
trzebna była elektrownia, a ich szybkość i pa¬ 
mięć operaęyjna były mniej niż skromnę. 

Wprowadzenie technologii półprzewodniko¬ 
wej i wynalazek układu scalonego zaowocowały 
po czterech dekadach burzliwego rozwoju urzą¬ 
dzeniami, których sercem jest płytka krzemu 6 
rozmiarach paznokcia. Komputery stały się bar¬ 
dzo szybce, niezawodne, powszechnie dostęp¬ 
ne i tanie. 

Obecnie produkowane układy scalone bardzo 
dużej skali integracji (VLSI — Very Large Scalę 
Integration) umożliwiają upakowanie 50 tys. 
tranzystorów w 1 mm\ Odstępy między posz¬ 
czególnymi elementami wynoszą 1—2 mikrony 
(10 -6 m). Osiągane czasy przełączania, określa¬ 
jące szybkosc pracy, są rzędu kilkunastu nano- 
sekund (10~~ 9 s). Oczekuje się, że ulepszone te¬ 
chnologie wytwarzania i nowe materiały pozwo¬ 
lą na zwiększenie gęstości upakowania do 0.1 
mikrona. 

Jeśli w dążeniu do dalszej miniaturyzacji 
schodzimy poniżej tej granicy, to wkraczamy w 
obszar rządzony mechaniką kwantową. Elektry¬ 
czność, znana nam ze szkoły, jako kolektywny 


Rys. 2 Sprzężenie molekularnego urządzenia elek¬ 
tronicznego (MED — ang. Molecular Electronic Devi - 
ce) ze światem zewnętrznym. Osiem częstotliwości 
światła laserowego (reprezentujących cztery wejś¬ 
cia i cztery wyjścia), przechodzących przez MED, 
jest odczytywane przez rząd diod światłoczułych 
(diodę array). (Lens — soczewka, Prism — piyzmat). 


fenomen, przestaje być wystarczającym opisem 
Zjawisk na tym poziomie — musimy uwzględnić 
efekty kwantowe dotyczące pojedynczych elek¬ 
tronów. o 

MOLEKULARNA BRAMKA TYPU 

NAND 

Zejście do skali submikronowej, czyli do roz¬ 
miarów rzędu nanometrów (1(T“ 9 m), sprowadza 
się praktycznie do manipulowania cząsteczkami 
związków chemicznych. Obecnosc elektronów, 
wędrujących między poszczególnymi atomami 
molekuły zmienia istotnie jej fundamentalne 
własności fizyczne, w szczególności przewodni¬ 
ctwo elektryczne lub pochłanianie światła o 
określonej długości fali. \ 

Zjawiska te wykorzystywane są przy tworze¬ 
niu prototypowych urządzeń elektroniki moleku¬ 
larnej (MED — Molecular Electronic Devices). 
Na rysunku 4 przedstawiono działający model 
bramki logicznej typu NAND skonstruowanej w 
oparciu o cząsteczkę światłoczułego pigmentu 
występującego w siatkówce oka ludzkiego. Mo¬ 
lekuła tego związku chemicznego ma rozmiar 4 
nm i kształtem swym przypomina małe widełki o 
dwóch odnogach i jednej szyjce. Każda z od- 
nog„ składająca się z trzech części (obszar do¬ 
nora, bariera i obszar akceptora), jest wejściem 
bramki. Wyjściem tego układu jest szyjka. 

Impulsy światła laserowego, o określonej dłu¬ 
gości fali zmieniają własności cząsteczki. Do 
właściwego działania modelu konieczne jest za¬ 
stosowanie trzech laserów. Dwa z nich oświetla- 


INŻYNIERIA GENETYCZNA 
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Każda funkcja logiczna, np. dodawanie dwóch 
liczb, może byc zrealizowana jako kombinacja 
wielu bramek typu NAND. Bawiąc się klockami 
LEGO możemy skonstruować dowolną budowlę 
posługując się kilkoma rodzajami podstawo¬ 
wych elerhentow. Podobnie projeKtówany jest 
procesor komputera, tylko że w tym przypadku 
jedynym „klockiem” może byc właśnie bramka 
NANP- 

Z przedstawionego opisu widać, że funda¬ 
mentalnym problemem przy konstrukcji kompu¬ 
tera molekularnego jest połączenie poszczegol 
nych bramek ze sobą. Zagadnienie to nie zosta¬ 
ło rozwiązane dotychczas w sposob zadawalają¬ 
cy. Trudno wyobrazić sobie, że każdy element 
będziemy łączyc poprzeź kilka laserów i diod 
światłoczułych. 

Z pomocą może nam przyjść inżynieria gene¬ 
tyczna. Genetycy są ludźmi, którzy od wielu łąt 
budują nowe cząsteczki chemiczne, manipulu¬ 
jąc pojedynczymi atomami. Bardzo ciekawie wy¬ 
gląda propozycja wykorzystania do produkcji 
układów komputera molekularpego mechaniz¬ 
mu realizowanego przez rybosomy odczytujące 
informację genetyczną, na podstawie której ko¬ 
mórki syntetyzują niezbędne białka. Jeśli po¬ 
mysł ten zostanie urzeczywistniony, to potrzeb¬ 
ne elementy komputera będą same powstawały 
w probówce zawierającej odpowiedni roztwor. 

PERSPEKTYWY 

Zbudówanie komputera molekularnego jeśt 
jeszcze kwestią czasu. Większość prowadzo¬ 
nych prac to badania podstawowe, którymi zaj** 
mują się czołowe laboratoria naukowe ną świę¬ 
cie. Musimy poczekać 10—15 lat nim na rynku 
pojawią się handlowe produkty tej technologii. 
Komputery tej generacji będą 10 tysięcy razy 
szybsze od najszybszego obecnie komputera 
typu Cray, a zastosowane układy będą charakte¬ 
ryzowały się gęstością upakowania o 5 rzędów 
lepszą w stosunku do współczesnych elemen¬ 
tów, półprzewodnikowych. Złożone symulacje 
modeli fizycznych, rozpoznawanie mowy i obra¬ 
zów w czasie rzeczywistym, przetwarzanie grafi¬ 
ki i rozumienie języków naturalnych, to te dzie¬ 
dziny, które najbardziej skorzystają z zalet kom¬ 
putera molekularnego. 

Oprać, na podsj art. M A. Clarksona , „Byte ' 
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